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A fully  relativistic  description  of  the  two-body  problem  in  General  Relativity  is 
one  of  the  outstanding  unsolved  problems  in  Einstein’s  theory.  A detailed  description 
of  the  orbital  parameters  of  binary  systems  has  become  even  more  pressing  with  the 
advent  of  gravitational  wave  detection  schemes.  This  thesis  details  our  efforts  to 
generate  astrophysically  interesting  solutions  to  the  two-body  problem.  The  thesis 
consists  of  two  main  parts. 

The  first  part  presents  an  analytical  variational  principle  for  describing  binary 
neutron  stars  undergoing  irrotational  fluid  flow.  The  variational  principle  is  a powerful 
tool  for  generating  accurate  estimates  of  orbital  parameters  for  neutron  stars  in  quasi- 
equilibrium orbits. 

The  second  part  of  the  thesis  details  the  numerical  application  of  the  varia- 
tional principle  by  solving  the  initial  value  problem  for  binary  black  holes  in  quasi- 
equilibrium circular  orbits.  The  analysis  draws  from  the  novel  “puncture”  method  of 
describing  the  black  holes,  and  relies  on  nonlinear  adaptive  multigrid  techniques  for 
generating  numerical  results.  These  tools  allow  us  to  generate  sequences  of  circular 
orbits,  which  in  turn  allow  us  to  approximate  the  orbital  parameters  for  the  system 
up  to  and  including  the  innermost  stable  circular  orbit.  We  compare  our  numerical 


results  to  post- Newtonian  expectations  and  we  generate  numerical  data  regarding  the 
geometry  and  the  gravitational  radiation  emitted  by  the  system. 

We  arrive  at  two  important  conclusions.  First,  the  analytical  variational  prin- 
ciple describing  binary  neutron  stars  in  irrotational  motion  provides  a road  map  for 
future  numerical  simulations,  and  also  lends  credence  to  previous  simulations  by  other 
authors.  Second,  the  numerical  application  and  description  of  binary  black  holes  in 
quasi-equilibrium  circular  orbits  simplifies  the  analyses  of  previous  authors,  and  al- 
lows for  the  imposition  of  realistic  boundary  data  in  the  simulations  with  relatively 
high  grid  densities.  Both  the  variational  principle  and  its  application  may  be  used 
to  help  generate  accurate  estimates  of  the  orbital  parameters  for  waveform  templates 
needed  by  gravitational  wave  observatories  around  the  world. 
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CHAPTER  1 
INTRODUCTION 

The  conception  of  Einstein’s  Theory  of  General  Relativity  in  1915  was  deemed 
a theorist’s  paradise,  but  an  experimentalist’s  nightmare.  In  particular,  the  effects  of 
gravitational  radiation  were  believed  to  be  too  weak  to  ever  have  measurable  effects 
on  an  Earth-based  experiment,  and  were  hence  nothing  more  than  an  interesting 
prediction  of  the  theory. 

However,  beginning  with  Weber's  [1]  investigations  using  resonant  bar  detectors 
for  the  measurement  of  gravitational  waves,  the  reality  of  actually  measuring  the  ef- 
fects of  black  holes  and  neutron  stars  on  the  surrounding  universe  became  the  primary 
goal  of  many  investigators. 

Today,  with  the  construction  of  Earth-based  gravitational  wave  detectors  like 
LIGO  [2]  it  has  become  a matter  of  when,  rather  than  if,  gravitational  waves  will 
be  detected.  One  of  the  remaining  difficulties  in  detection  of  gravity  waves  is  the 
construction  of  realistic  waveform  templates.  Templates  will  allow  investigators  to 
sift  through  the  avalanche  of  data  to  correctly  and  accurately  identify  gravitational 
wave  signals  from  astrophysical  sources. 

Because  of  the  need  for  waveform  templates  [3],  a great  amount  of  effort  has 
been  spent  on  a fully  relativistic  treatment  of  the  two-body  problem.  A solution  to 
the  two-body  problem  will  yield  detailed  information  of  a binary’s  orbital  parameters, 
which  will  enable  investigators  to  construct  realistic  waveform  templates. 

This  thesis  documents  an  effort  to  describe  the  two-body  problem  in  the  frame- 
work of  variational  principles. 

The  hrst  half  of  this  thesis  describes  a variational  approach  to  describing  a binary 
system  of  neutron  stars.  This  is  an  appealing  method  of  approximating  solutions  to 
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the  Einstein  equations  and  the  equations  describing  the  matter  of  the  neutron  stars — 
we  find  we  only  need  to  minimize  a single  function  to  arrive  at  an  approximation, 
rather  than  solving  the  full  set  of  nonlinear  Einstein  equations.  We  derive  expressions 
for  quantities  we  call  the  “effective  mass”  and  the  “effective  angular  momentum”, 
which  may  be  interpreted  as  the  mass  and  angular  momentum  of  the  system  under 
study,  without  a contribution  from  the  gravitational  radiation  of  the  system.  The 
variational  principle  dictates  how  we  may  derive  the  orbital  angular  frequency  of  the 
system,  as  well  eis  the  energy  content  of  the  gravitational  waves — information  vital  to 
gravitational  wave  observatories. 

The  second  half  of  the  thesis  is  dedicated  to  a numerical  method  for  describing 
binary  black  holes.  The  mathematical  framework  used  to  describe  the  black  holes  is 
known  as  the  “puncture”  method,  and  is  attributed  to  Brandt  and  Briigmann  [4].  This 
method  greatly  simplihes  the  analysis  of  the  geometry,  allowing  us  to  side-step  many 
complications  previously  encountered  when  studying  binary  black  holes.  We  develop 
a numerical  algorithm  employing  adaptive  multigrid  techniques  to  solve  a nonlinear 
elliptic  equation  describing  the  geometry  of  the  holes,  which  in  turn  allows  us  to 
apply  a variational  principle  for  the  energy  of  the  system.  Once  again,  the  variational 
principle  indicates  how  we  may  approximate  the  orbital  angular  momentum  of  the 
system,  as  well  as  additional  geometrical  and  gravitational  wave  information. 

As  mentioned  above,  both  the  analytical  and  numerical  variational  principles 
allow  for  accurate  determination  of  orbital  parameters,  which  in  turn  may  be  used 
to  construct  waveform  templates  for  gravitational  wave  observatories.  With  accurate 
templates  investigators  can  open  a new  window  to  the  universe  and  “listen”  to  the 
symphony  of  black  holes  and  binary  neutron  star  systems. 


CHAPTER  2 

THE  QUASI-EQUILIBRIUM  APPROACH:  A \A.RIATIONAL  PRINCIPLE  FOR 

BINARY  NEUTRON  STARS 

In  this  chapter,  we  develop  a variational  principle  for  binary  neutron  stars.  We 
begin  with  a Newtonian  variational  principle  for  neutron  stars  to  give  us  a simple 
example  of  the  formulation  and  power  of  variational  principles  in  general.  We  then 
briefly  discuss  the  importance  of  surface  integrals  in  variational  principles,  and  then 
begin  developing  our  fully  relativistic  variational  principle  by  entering  the  realm  of 
the  3-fl  formalism  of  the  Einstein  equations.  This  in  turn  leads  us  to  a somewhat 
lengthy  discussion  of  various  aspects  required  in  our  variational  principle:  irrotational 
fluid  flow  in  relativity,  the  quasi-equilibrium  approach,  symmetric  trace-free  tensors, 
linearized  solutions  to  the  Einstein  equations,  and  finally  the  full  formulation  of  our 
variational  principle. 

2.1  Newtonian  Analysis  of  Binary  Neutron  Stars 

We  begin  our  Newtonian  analysis  by  hrst  demanding  our  neutron  stars  be  com- 
posed of  a perfect  fluid:  one  in  which  there  are  no  stresses  or  shears.  We  also  require 
an  equation  of  state  which  relates  the  fluid  density  p to  the  pressure  p such  that 
P = p{p)-  We  also  assume  the  binary  system  has  an  orbital  frequency  of  IL  We  then 
define  a quantity  S,  which  is  evaluated  in  the  uniformly  rotating  frame: 


S 


T 1 ^ P 

+ + p^  + p 


+ A 


J (fxp  - M 


dp 

— +P 
P 


(2.1) 
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where  p is  the  density  of  our  perfect  fluid  neutron  stars,  u is  the  velocity  of  the  fluid 
in  the  rotating  frame,  $ is  the  Newtonian  gravitational  potential,  p is  the  pressure  of 
the  fluid,  and  A is  a Lagrange  multiplier  which  ensures  that  the  mass  of  each  star  is 
the  integral  of  the  fluid  density. 

Because  we  are  evaluating  5 in  a non-inertial  frame  which  is  rotating  at  a 
uniform  rate  il,  we  may  relate  u to  the  inertial  fluid  velocity  v by 


where  r is  simply  the  radius  of  the  orbit.  It  has  been  suggested  [5,  6]  and  is  widely  held 
that  neutron  stars  in  binary  orbits  will  not  be  tidally  locked,  or  corotating.  It  has  been 
found  that  tidally  locked  neutron  stars  would  have  unrealisticly  large  viscosities  [6]. 
It  is  believed,  therefore,  the  stars  will  have  very  little,  if  any,  intrinsic  spin.  This 
scenario  is  called  irrotational  fluid  flow,  which  translates  to  saying  the  fluid  velocity 
V has  zero  curl: 


u = —Q  X r + V, 


(2.2) 


V X u = 0. 


(2.3) 


This  implies  we  may  introduce  a vector  potential  via 


(2.4) 


We  may  rewrite  our  equation  for  the  fluid  velocity  in  the  rotating  frame  to  be 
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We  now  rewrite  our  function  S,  using  the  expression  for  the  fluid  velocity  given 
by  Eq.  (2.5): 


S = 


1 


p ( —Vl  X r + V0 


d'^x 


■^(V$)%p4.  + p 


-Q  X r + Vtpj 


fP  dp 
'o  P 


P 


+ A 


d^xp  — M 


(2.6) 


We  now  allow  inhnitesimal,  arbitrary  variations  of  the  velocity  potential  ip, 
the  fluid  density  p,  and  the  gravitational  potential  <h.  For  clarity,  we  analyze  each 
variation  separately,  starting  with  the  variation  due  to  the  velocity  potential  ip: 


SS„ 


-I 


d^x 


pWip 


VSili  - p (si  X f)  • Viiii 


(2.7) 


After  some  rearranging  and  integrating  by  parts,  5S,h  may  be  written  as 


= J d^x  X • Vp  — Vip  • Vp  — pV^V’ 

d^x  |pn  • Vip  — ^ 


Sip 


(2.8) 


where  the  surface  integral  is  evaluated  on  the  surface  of  the  star,  and  n is  a unit 
vector  normal  to  the  surface  of  the  star.  If  S is  to  be  an  extremum  the  coelficients  of 
Eq.  (2.8)  demand 


vV  = - 


Vip  — ( Sf  X f 


1 


Vp 


(2.9) 


which  is  the  equation  for  irrotational  fluid  flow  [7].  The  variation  of  -0  in  S'  also 
dictates  Eq.  (2.9)  is  subject  to  a boundary  condition,  specihcally 


Vip  — ( X f 


1 


n = 0. 


(2.10) 
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which  again  is  imposed  on  the  surface  of  the  star.  Note  our  Eqs.  (2.9)  and  (2.10)  are 
the  same  as  Teukolsky’s  Eqs.  (13)  and  (14)  [7]. 

We  now  turn  our  attention  to  the  variation  in  S due  to  variations  in  the  fluid 
density  p.  We  hnd  the  variation  may  be  written  as 


SSp  = / d^x 


-n X r + V 


X r + V'0 ) + $ + / + A 

lo  P 


f 


dp 


6p.  (2.11) 


If  we  demand  S be  an  extremum,  then  Eq.  (2.11)  implies 


^ (-11  X f + • (-ll  X f + VV;)  + ^ + ^ (2.12) 

which  is  simply  the  Bernoulli  equation  for  fluid  flow  given  by  Teukolsky’s  Eq.  (12)  [7]. 

Einally,  we  examine  the  variation  of  S under  changes  in  the  gravitational  po- 
tential <h.  This  variation  is 


SS 


$ 


1 

4^ 


V<h  • V^4>  -I-  pS^  . 


(2.13) 


With  some  rearranging  and  integration  by  parts,  we  hnd  this  variation  may  be  written 
as  the  sum  of  two  terms: 


SS&  = / d^x 


P- 


4nG 


5^  + <p  d^x 

1 

1 

Si 

<i 
1 

\ J 

L47tG  J 

5T. 


(2.14) 


The  location  of  the  surface  integral  is  somewhat  ambiguous,  and  depends  on  the 
conditions  one  wishes  to  impose.  For  instance,  if  the  location  of  the  boundary  is  on 
the  sm:face  of  the  star,  n is  interpreted  as  a vector  normal  to  the  surface  of  the  star. 
One  then  specihes  the  value  of  the  gravitational  potential  on  the  surface  of  the  star. 
On  the  other  hand,  one  could  choose  a different  surface  in  which  to  specify  the  value 
of  the  potential  4>  and  the  vector  n.  For  instance,  a different  choice  would  demand  the 
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potential  fall  off  sufficiently  rapidly  as  r — oo  so  as  to  eliminate  the  surface  integral 
altogether. 

For  whatever  method  one  chooses  to  handle  the  surface  integral  for  the  gravita- 
tional potential,  if  we  demand  S be  an  extremum,  then  Eq.  (2.14)  demands 

= 47tGp,  (2.15) 

which  is  simply  the  Poisson  equation  describing  the  gravitational  field  of  the  star. 

We  may  therefore  describe  the  total  variation  of  S as  the  sum  of  the  individual 
variations: 

5S  = SS.,p  + SSp  + 6S^,  (2.16) 

where  the  individual  variations  are  given  by  Eq.  (2.8),  Eq.  (2.11),  and  Eq.  (2.14), 
respectively.  S is  an  extremum  if  and  only  if  under  arbitrary  variations  of  p,  p,  and 
<h,  the  fluid  velocity  potential,  fluid  density,  and  gravitational  potential  are  described 
by  Eq.  (2.9),  Eq.  (2.12),  and  Eq.  (2.15),  and  are  subject  to  the  boundary  conditions 
given  by  Eq.  (2.10)  and  Eq.  (2.14). 

2.2  The  Importance  of  Surface  Integrals  in  Variational  Principles 

Before  we  delve  into  a fully  relativistic  treatment  of  binary  neutron  stars,  it  is 
important  to  point  out  the  role  surface  integrals  (or  boundary  terms)  play  in  varia- 
tional principles.  We  demonstrate  this  with  the  aid  of  an  over-simplified  toy  model. 
Imagine  we  are  studying  a one-dimensional  thin  wire  of  length  L,  and  wish  to  formu- 
late a variational  principle  which  properly  describes  the  temperature  along  the  length 
of  this  wire.  Let  us  define  a quantity  I to  be 

1 (dT{x)Y 

2 \ dx  J 


dx 


(2.17) 
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where  T{x)  is  the  position  dependent  temperature  of  the  wire.  If  we  allow  for  in- 
finitesimal, arbitrary  variations  in  this  temperature,  then  the  variation  in  / becomes 


SI  = - 


/ 


(fTjxY 

dx‘^ 


ST{x)dx  -f  ST{x) 


dT{x) 

dx 


L 


ST{x) 


dTjx) 

dx 


0 


(2.18) 


where  the  boundary  terms  are  the  result  of  integration  by  parts.  Note  the  coefficient 
of  the  integral  is  simply  the  one-dimensional  Laplacian — the  correct  equation  that 
describes  the  temperature  in  a source-free  wire.  The  variation  in  / given  by  Eq.  (2.18) 
indicates  1 gives  the  correct  formulation  of  the  variational  principle  as  long  as  we  fix 
the  value  of  the  temperatme  on  the  boundaries  (i.e.,  ST {x)\ Boundary  = 0 )• 

However,  the  quantity  I given  by  Eq.  (2.17)  does  not  give  the  correct  formulation 
of  the  variational  principle  if  we  wish  to  specify  the  value  of  some  other  physical 
quantity  on  the  boundary,  say  the  derivative  of  the  temperature.  To  formulate  our 
new  variational  principle,  we  must  modify  I by  the  inclusion  of  an  additional  term. 
We  define  the  quantity  S as 


5 = 


(2.19) 


If  we  now  allow  for  inhnitesimal,  arbitrary  variations  in  the  temperature,  we 
find  the  total  variation  in  S to  be  of  the  form 


55=  - 


(PT{x) 

dx'^ 


ST{x)dx  — T{x)S 


L 


0 


(2.20) 


Note  the  differences  and  similarities  between  Eq.  (2.20)  and  Eq.  (2.18).  Specifi- 
cally, the  coefficients  in  the  integral  are  exactly  the  same — the  one-dimensional  Lapla- 
cian. However,  the  boundary  terms  are  markedly  different.  The  variation  of  S given 
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by  Eq.  (2.20)  indicates  S gives  the  proper  formulation  of  the  variational  principle  if 
we  hold  the  value  of  the  derivative  of  the  temperature  fixed  on  the  boundaries  (i.e., 

r / dT{x)  \ I P|\ 

^ V dx  } \ Boundary  — U J . 

There  is  a moral  to  this  story:  in  general,  the  formulation  of  the  variational 
principle  depends  on  the  quantities  one  wishes  to  specify  on  the  boundaries  of  the 
system.  This  idea  will  play  a major  role  in  our  treatment  of  binary  neutron  stars. 

It  is  also  important  to  note,  in  general,  the  boundary  terms  of  a variational 
principle  have  a physical  interpretation  [8].  They  may  correspond  to  a mass,  angular 
momentum,  or  other  physical  quantity  which  helps  to  specify  the  system.  This  will 
also  become  apparent  in  the  coming  discussion. 

2.3  The  3+1  Formalism 

We  now  develop  the  necessary  tools  to  formulate  our  variational  principle  for 
binary  neutron  stars,  starting  with  a discussion  of  the  3+1  formalism.  We  decompose 
our  four-dimensional  metric  gab  in  the  typical  ADM  fashion  [9]  in  which  we  foliate 
spacetime  into  spacelike  hypersurfaces  of  constant  time.  The  foliated  metric  then  has 
the  form 

Qabdx^dx^  = -N^dt^  + -fab  (dx“  + N^dt)  {dx^  + N'^dt) , (2.21) 

where  jab  is  the  three- metric  on  a spacelike  hypersurface  Sj,  N \s  the  lapse  function, 
and  A^“  is  the  shift  vector.  The  lapse  function  N is  a measure  of  the  proper  time 
elapsed  as  one  translates  from  one  time  slice  to  the  next,  and  is  related  to  the  four- 
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00 


metric  via 


1 

Jp- 


(2.22) 
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The  shift  vector  A^“  is  a measure  of  how  coordinates  shift  from  one  hypersurface 
to  the  next,  and  is  related  to  the  four-metric  via 

(2.23) 

For  completeness,  we  express  the  spatial  part  of  the  contravariant  four-metric 
as 

= fj  - N^N^/N\  (2.24) 

The  time  translation  vector  is  related  to  the  lapse  and  shift  via 

e = AV  -f  N\  (2.25) 

where  is  a timelike  unit  normal  {UaU°‘  = —1)  to  the  hypersurface  Sj.  Finally,  we 
may  also  write  the  three-metric  in  a way  which  captures  the  flavor  of  a projection 
operator.  Specifically, 

'Jab  ~ 9ab  T '^a^b-  (2.26) 

We  must  determine  a covariant  derivative  operator,  denoted  as  Da,  which  is 
compatible  with  this  metric.  This  is  achieved  by  projecting  all  of  the  indices  of  the 
four-dimensional  covariant  derivative  Va  to  ensure  a completely  spatial  quantity: 

DaV"’  = (2.27) 

for  any  spatial  vector  and 

= 7a"’Vb0  (2.28) 

for  any  scalar  field  0. 

With  the  fundamental  geometrical  quantities  thus  dehned,  then  we  may  con- 
struct the  Ricci  tensor  Rab  and  the  Ricci  scalar  R from  the  three- metric  7q(,. 
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Oj  - 


W 

iW' 
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The  foliation  ol  the  four-dimensional  spacetime  into  three-dimensional  hyper- 
surfaces introduces  a new  geometrical  quantity,  the  extrinsic  curvature  dehned 
by 

K^ab  = -]^Culab  = (2.29) 

where  £„  is  the  Lie  derivative  with  respect  to  the  vector  u“.  Another  geometrical 
result  of  the  foliation  is  that  we  may  write  an  expression  for  how  the  three-metric 
changes  as  one  moves  off  of  a particular  hypersurface  and  onto  another: 


^t7a6  = —2NICab  + 2D(aNb)  = Gab, 


(2.30) 


which  also  dehnes  Qab- 

In  the  Hamiltonian  formulation  of  General  Relativity,  the  momentum  conjugate 
to  'Jab  is  7r“*/167T,  where  7r“*  is  known  as  the  field  momentum  [9-11],  and  is  related  to 
the  extrinsic  curvature  via 


7r“*  = -^1/2  _ ^abj^c^  ^ (2.31) 

where  7 is  the  determinant  of  the  three-metric. 

We  may  now  write  the  Einstein  equations  in  the  3-1-1  formalism.  Two  contrac- 
tions of  the  four- dimensional  Einstein  equations  with  the  unit  normal  {u^u^Gab)  yields 
the  Hamiltonian  constraint,  and  must  be  satished  on  every  hypersurface.  It  may  be 
written  as 

R -h  7“^  = 16npH  = (2.32) 

which  also  defines  J\f.  The  energy  density  depends  on  the  stress-energy  tensor 
via 

pH  = U^^U^Tab- 


(2.33) 
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Likewise,  a single  contraction  of  the  four-dimensional  Einstein  equations  with 
the  unit  normal,  and  then  a contraction  with  the  three-metric  yields  the 

momentum  constraint,  and  must  also  be  satisfied  on  every  hypersurface.  It  is  given 
as 

Db  (7r“V7^/^)  = -87t/  = (2.34) 

which  also  defines  A^“.  The  momentum  density  is  related  to  the  stress-energy 

tensor  via 

f = Ubi^^T^^K  (2.35) 

The  remaining  spatial  part  of  the  Einstein  equations  contains  the  dynamics,  and 
is  given  by 

+ 87rA^7^/25"^  (2.36) 

where 


- 2A^7-i/2  -f  7^/2  {D'^D^N  - Y^D^DaN) 

+ - 7t“T>cA^'’  - 7r'’"L>ciV“  (2.37) 

and  5“^  is  the  spatial  stress  tensor,  dehned  as 

So,  = (2.38) 

If  one  wishes  to  analyze  solutions  to  Einstein’s  equations  which  are  stationary 
or  approximately  stationary  (i.e.,  not  evolving  with  time),  this  corresponds  to  the 
constraint  equations  given  by  Eq.  (2.32)  and  Eq.  (2.34),  as  well  as  the  dynamical 
equations  Qab  = 0 and  -|-  8nN'y^^‘^S°'^  = 0.  Solutions  to  this  set  of  equations  are 
known  as  quasi-stationary,  or  quasi-equilibrium  solutions  [12].  Physically,  they  may 
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approximately  correspond  to  a binary  neutron  star  system  in  a circular  orbit,  where 
the  radiation  reaction  time  scale  is  much  larger  than  the  orbital  time  scale.  It  is 
these  very  types  of  systems  we  will  explore.  Let  us  hrst  investigate  the  consequences 
of  modeling  our  neutron  stars  as  perfect  fluids,  with  the  constraint  of  irrotational 
motion  placed  on  these  stars. 

2.4  Irrotational  Fluid  Flow  in  General  Relativity 

There  are  three  time  scales  invoh^ed  in  orbital  dynamics  in  the  framework  of 
General  Relativity:  the  orbital  period  Torbit)  the  time  scale  of  circularization  of  the 
orbit  due  to  the  radiation  of  gravitational  waves  Xcirde,  and  the  time  scale  in  which 
the  radius  of  the  orbit  decreases  due  to  radiation  reaction  [10].  These  time  scales 
are  related  by  Torbit  ^'circle  ^ 'Tvt-  Because  of  the  relative  sizes  of  the  time  scales 
involved,  it  is  believed  that  a good  approximation  to  the  physical  system  is  a sequence 
of  binary  systems  in  circular  orbits  in  which  the  effects  of  gravitational  radiation  are 
small.  These  systems  are  said  to  be  in  quasi-stationary  or  quasi-equilibrium  circular 
orbits.  As  was  mentioned  in  the  Newtonian  treatment  of  our  binary  system,  it  is  also 
believed  that  binary  neutron  stars  will  have  very  little  intrinsic  spin  with  respect  to  a 
local  inertial  frame;  the  fluid  viscosities  would  be  unrealistically  large  if  this  were  not 
the  case.  Hence,  it  is  believed  binary  stars  exhibiting  irrotational  fluid  flow  serve  as 
a well-justified  approximation  to  reality  [6]. 

In  this  section,  we  first  derive  the  pertinent  equations  describing  irrotational 
fluid  flow  following  the  methodology  of  Teukolsky  [7],  and  then  we  rewrite  these 
equations  in  the  3H-1  formalism. 

We  begin  by  defining  the  relativistic  enthalpy  h as 

, P + P 
h = , 


Po 


(2.39) 
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where  p is  the  total  energy  density  of  the  fluid,  p is  the  pressure,  and  po  = rnsn  is 
the  rest  mass  densit}^.  The  baryon  rest  mass  is  tub  and  the  baryon  number  density 
is  n.  We  also  assume  an  equation  of  state  relating  the  pressure  and  the  density  via 
p = p{p). 

The  stress-energy  tensor  of  an  isentropic  perfect  fluid  is 

= (p  + (2.40) 

where  U°‘  is  the  fluid  four-velocity  (not  to  be  confused  with  the  unit  normal  to  the 
hypersurface  u°‘)  and  is  the  four-metric  of  the  spacetime.  Conservation  of  stress- 
energy  = 0)  allows  us  to  write  the  conservation  of  energy  equation  for  the 

fluid  by  projecting  the  conservation  equation  along  the  four-velocity: 

[[p  + p)Ua]  - U^VaP  = V„p  + (p  + p) = 0.  (2.41) 

Likewise,  we  may  determine  Eider’s  equation  for  the  fluid  by  projecting  the 
conservation  of  stress-energy  in  a direction  perpendicular  to  the  fluid  four-velocity: 

{g^  + UaU^)  = {p  + + {g!  + UaU^)  Vftp  = 0.  (2.42) 

In  addition  to  the  conservation  of  energy  and  Euler’s  equation,  we  may  also  write  the 
equation  for  conservation  of  rest  mass: 


V,  (pof/“)  = 0. 


(2.43) 


We  note  Euler’s  equation,  written  in  terms  of  the  relativistic  enthalpy,  is  given  as 


U’^^aihUb)  + Vfch  = 0. 


(2.44) 
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At  this  point,  we  introduce  the  concept  of  irrotational  fluid  flow  in  relativity.  In 
terms  of  the  relativistic  enthalpy  and  the  fluid  four-velocity,  the  relativistic  vorticity 
tensor  is  dehned  as 

Uab  = P:Pb^  [VcihUd)  - Vd{hU,)] , (2.45) 

where  = 5^  -I-  U^Ub  is  a projection  tensor.  Using  the  form  of  the  Euler  equation 

given  by  Eq.  (2.44),  the  relativistic  vorticity  tensor  [7]  may  be  written  as 

UJab  = ^a{hUb)-Vb{hUa).  (2.46) 

If  a fluid  is  irrotational,  then  the  vorticity  tensor  is  equal  to  zero.  The  physical 
consequences  of  this  indicate  the  neutron  stars  have  no  intrinsic  spin  with  respect  to 
a local  inertial  frame.  If  we  insist  on  a vanishing  vorticity  tensor,  this  implies  we  may 
introduce  a velocity  potential  [7, 13],  denoted  as  ip,  in  a fashion  similar  to  that  of  the 
Newtonian  problem  mentioned  above: 

hUa  = Va'ip.  (2.47) 

The  introduction  of  the  velocity  potential  allows  us  to  rewrite  the  conservation  of  rest 
mass  equation,  Eq.  (2.43),  as 


V“  (h-VoVaV^)  = 0,  (2.48) 

and  we  note  the  normalization  of  the  fluid  four  velocity,  U°'Ua  = —1,  results  in 

h^  = - 


(V„^)V>. 


(2.49) 
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In  general,  if  a fluid  is  exhibiting  irrotational  motion,  then  in  addition  to  being 
described  by  some  equation  of  state  p = p{p),  the  fluid  also  satisfies  Eq.  (2.39), 
Eq.  (2.48),  and  Eq.  (2.49). 

In  anticipation  of  describing  the  irrotational  fluid  in  the  Hamiltonian  formalism 
of  General  Relativity,  we  now  decompose  the  fluid  equations  in  the  3+1  formalism 
under  the  assumption  that  the  stars  are  in  quasi-equilibrium. 

In  the  quasi-equilibrium  approximation,  we  require  the  existence  of  a Killing 
vector  in  a particular  coordinate  system  of  the  form 


This  Killing  vector  is  a symmetry  generator  for  the  matter  fields,  which  implies 


where  £ once  again  denotes  the  Lie  derivative.  The  above  condition  in  turn  implies 


where  C is  a positive  constant  related  to  the  Bernoulli  integral. 

Before  we  write  down  the  fluid  equations  in  the  3+1  language,  it  is  useful  to 
note  some  relations  which  are  used  in  the  derivations.  The  derivative  of  the  vector 
normal  to  a spacelike  hypersurface  is 


(2.50) 


£j(ht/a)  = 0 = £j-(V,^)  = V,(£^), 


(2.51) 


(2.52) 


^ a ^6  ^ab  1^  ^ • 


(2.53) 


Recall  JCab  is  the  extrinsic  curvature  of  the  spacelike  hypersurface.  Da  is  the  derivative 
compatible  with  7q(,,  and  N is  the  lapse  function.  We  also  note  the  result  of  the 
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derivative  acting  on  a scalar  field  d>  is 


= Da^  - UaU^Vb^- 


(2.54) 


Likewise,  we  note  the  result  for  any  spatial  vector  to  be 


= DaVb  - UaU^V.Vb  - JCacVW  (2.55) 

Armed  with  the  above  useful  expressions,  we  may  begin  to  derive  the  huid 
equations,  specifically  Eq.  (2.48)  and  Eq.  (2.49),  in  the  3+1  formalism.  We  begin  by 
noting 

+ N^^Dai'  = ~C,  (2.56) 

which  directly  leads  to 

u“V„^  = -^(C  + iV“Z)„^).  (2.57) 

We  also  note  for  any  scalar  / which  satisfies 

A-/  = 0 (2.58) 

then  we  may  use  a variant  of  Eq.  (2.56)  to  derive  yet  another  useful  expression. 
Specifically, 

eVaf  = Nu-Vaf  + N^DJ  = 0,  (2.59) 

which  implies 

u^yaf  = -^N^DJ.  (2.60) 

In  light  of  Eq.  (2.54),  this  implies 


Vrf  = D,il>  + u,{C  + N^Dti,)  IN. 


(2.61) 
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Therefore,  we  may  write 


= V^Da'ip  + (V“«a)  {c  + N^Dbilj)  /N  + u“V„  [(C  + /N]  . (2.62) 


Using  Eq.  (2.55)  with  the  identihcation  14  ^ Dai>,  the  hrst  term  of  Eq.  (2.62) 
may  be  written  as 


+ {Dai^)D^  In  N. 


(2.63) 


The  second  term  in  Eq.  (2.62),  V“Wa,  is  simply  replaced  by  minus  the  trace  of 
the  extrinsic  curvature,  — /C^“.  Using  Eq.  (2.60),  we  may  rewrite  the  third  term  of 
Eq.  (2.62)  as 


^(C  + iVDrf) 


~ (C  + N”Dtt) 


(2.64) 


Expanding  Eq.  (2.48)  and  using  the  simplifications  indicated  by  Eq.  (2.62), 
Eq.  (2.63)  and  Eq.  (2.64),  we  may  express  the  equation  for  irrotational  fluid  flow  in 
the  3+1  formalism  as 


^ {C  + N”D,^) 


= 0, 


(2.65) 


which  also  dehnes  T.  Note  this  equation  is  equivalent  to  Teukolsky’s  Eq.  (50). 

We  also  note  the  3+1  decomposition  of  the  normalization  of  the  fluid  four  ve- 
locity, previously  given  by  Eq.  (2.49),  which  defines  A\ 


A = h^  + {D^iP)  Dai^  ~^{C  + = 0. 


(2.66) 


In  addition  to  Eq.  (2.65)  and  Eq.  (2.66),  the  fluid  four- velocity  is  subject  to  a 
boundary  condition  at  the  surface  of  the  star.  In  particular,  the  four-velocity  must 
be  perpendicular  to  the  normal  vector  of  the  star’s  surface.  We  dehne  the  surface  to 
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be  the  location  in  which  the  pressure  p vanishes,  so  the  boundary  condition  may  be 
written  as 


'h 


SStar 


t/“V„p|9Star  = h-^ 


^ (C  + N^D,^p)  7V“ 


-DflPlastar  = 0,  (2.67) 


which  also  defines  tl'astar- 

For  completeness,  the  decomposition  of  the  stress-energy  tensor  for  an  irrota- 
tional  fluid  is  given  by  Eqs.  (2.33),  (2.35)  and  (2.38).  Specifically, 


and 


pH 


f = ^(C  + ir<i,. 


(2.68) 

(2.69) 


= J {DatP)  + 7a6  (v  ~ ^A)  . (2.70) 


Hence,  for  a given  equation  of  state  p = p(p),  a solution  of  the  quasi-stationary 
Einstein  equations  with  irrotational  fluid  flow  is  a set  of  N,  N'^,  'Vab,  Po.  'fp  and 
C which  satisfy  Eqs.  (2.65),  (2.66),  and  (2.67)  in  addition  to  the  quasi-stationary 
Einstein  equations  given  by  Eqs.  (2.30),  (2.32),  (2.34)  and  (2.36)  with  sources  given 
by  Eqs.  (2.68),  (2.69),  and  (2.70). 


2.5  Foundations  of  the  Variational  Principle 

Before  we  proceed  with  the  details  of  the  variational  principle,  we  first  describe 
the  physics  and  the  implications  of  the  quasi-equilibrium  condition  on  our  binary 
system.  In  a realistic  binary  star  system,  as  the  two  stars  orbit,  the  system  will 
radiate  gravitational  waves.  The  back  reaction  of  these  waves  will  in  turn  “push”  the 
orbiting  stars  into  closer  orbits.  The  system  will  continue  to  radiate,  and  the  stars 
will  slowly  spiral  inward  until  tidal  forces  distort  the  objects  and  cause  material  to  be 
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transferred  from  one  star  to  another  [13-15].  If  the  stars  are  not  completely  tidally 
disrupted  at  this  point,  they  will  eventually  merge  to  form  a single  object,  which  may 
collapse  to  form  a black  hole. 

By  demanding  that  our  system  obey  the  ciuasi-equilibrium  Einstein  equations, 
we  are  effectively  disallowing  any  time  evolution  of  our  system.  Physically,  this  would 
correspond  to  demanding  the  radiation  reaction  force  is  negligible,  so  the  orbiting 
stars  would  forever  remain  at  a constant  radius  orbit.  Again,  this  is  a realistic  ap- 
proximation because  of  the  long  time  scales  of  radiation  reaction  forces. 

However,  rather  than  “turning  off”  the  radiative  terms  (and  potentially  losing 
some  interesting  physics),  we  choose  to  place  our  binary  system  in  quasi-equilibrium 
by  setting  up  a boundary  which  encompasses  our  system  [12].  We  then  carefully 
choose  the  amplitudes  and  phases  of  gravitational  radiation  propagating  from  this 
boundary  inward  towards  the  binary  system.  The  ingoing  radiation  feeds  exactly  the 
same  amount  of  energy  into  the  system  as  the  energy  lost  because  of  the  radiation 
emitted  by  the  binary  system.  This  physically  unrealistic  construct  greatly  simplifies 
a large  portion  of  the  analysis  to  come,  and  it  also  allows  us  to  extract  useful  informa- 
tion about  realistic  binary  systems.  One  may  be  tempted  to  set  the  location  of  this 
boundary  at  spatial  inhnity,  but  it  has  been  shown  [16]  periodic  geometries  containing 
radiation  are  not  asymptotically  fiat.  This  effectively  limits  our  ability  to  describe  the 
gravitational  held  at  inhnity  via  the  linearized  Einstein  equations.  Hence,  the  location 
of  this  artihcial  boundary  is  subject  to  two  constraints:  hrst,  the  energy  content  of 
the  gravitational  radiation  within  the  region  of  space  bounded  by  this  surface  must 
be  much  less  than  the  energy  content  of  the  sources  themselves;  secondly,  we  demand 
in  the  vicinity  of  this  boundary  the  gravitational  held  is  described  by  the  linearized 
Einstein  equations. 
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The  lollowing  discussion  is  somewhat  lengthy  and  mathematically  intense.  To 
help  simplify  matters,  we  delay  any  inclusion  of  the  irrotational  fluid  until  we  have 
the  full  mathematical  machinery  of  the  variational  principle  at  our  disposal. 

2.5.1  The  Initial  Formulation  of  the  Variational  Principle 

This  section  is  devoted  to  deriving  an  expression  we  will  eventually  employ  in 
our  variational  principle,  as  well  as  some  mathematical  conventions  and  other  useful 
formulae.  We  begin  by  noting  several  useful  conventions  related  to  the  variation  of 
some  of  the  fundamental  geometrical  quantities: 


^’7a6 

= Htat), 

(2.71) 

= 7“7"^7oJ  = -^7“*) , 

(2.72) 

7 

= det(7„t), 

(2.73) 

= 7“‘d7.l,  = d7.“- 

(2.74) 

The  unit  normal  to  a surface  is  dehned  by  a scalar  field  r = constant  via 

Ua  = pDaT,  (2.75) 

where  in  this  context  p is  not  the  fluid  density,  but  is  dehned  by 

p-2  ^ ^2.76) 

It  is  important  to  note  r is  not  necessarily  related  to  the  hat  space  r coordinate.  The 
metric  of  a two-dimensional  boundary,  as  well  as  the  projection  operator  onto  this 
boundary,  is  given  by 


(2.77) 
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and  a is  the  determinant  of  aab-  We  also  note  the  useful  relationship 


DaUb  = - p ^naO^Ddp. 


(2.78) 


Some  useful  expressions  for  variations  of  the  geometry,  holding  the  location  of 
the  boundary  fixed,  are 


6{na)  = SpDaT  = Ua5p/p, 


rf5{na)  = -8{n°')na  = bpjp, 


Sn°'  = S(n^)  = — rfbp/ p, 


and  hnally 


b Ub  = 0, 


^ ^ + n’^a^bjf  + n'^a^brf  - 2n“n*(5p/p. 


We  also  note  a variety  of  useful  forms  of  Gauss’  law; 


(D,A>‘)  7>/"d’x  = / ^ W'^A*)  Sx  = i (Dtr)AW‘<fx 

[ rtbA^ 


P 


where  we  have  employed  Ecj.  (2.75)  and  used  the  fact  that 


(2.79) 

(2.80) 
(2.81) 
(2.82) 

(2.83) 


(2.84) 


7 = crp  . 


(2.85) 


We  may  now  begin  to  lay  the  foundations  of  oiu  variational  principle.  A vari- 
ational principle  for  the  Einstein  equations  may  be  constructed  by  integrating  the 
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scalar  curvature  of  the  four-metric  [10].  In  the  3-fl  formalism,  this  is  expressed  as 


lOTri^r 


.V 


^ + 7 ^ 


(2.86) 

where  the  integrand  of  167r//o  is  simply  the  3-1-1  form  of  the  Ricci  scalar  [9]. 

The  scalar  derived  from  the  three-metric,  R = ^°‘^Rab,  has  the  following  variation 


SR  = -<57a6R“'  + D^D^S^ab  - 


(2.87) 


which  allows  us  to  write  the  variations  of  the  different  parts  of  the  integral  given  by 
Eq.  (2.86).  Specihcally,  if  we  allow  variations  of  N,  A’“,  jab,  and  7t“^,  we  find 

j-^/'^S{NRj^^^)  = 5NR~  NSjab(^R‘'‘' 

+ Sjab  {D^D^N  - 
+ {ND^ab)  - (NDaSj,^) 

- D°  {SjabD^’N)  + {S%^DaN) , (2.88) 


y-^RS 


'N  n 

.7 


:K^b  - ) 7^^^ 


^ „ a„  b „a,b„ 
2^0.  ^b  ^ ^ab 


/m  _ 

V 7 27 

+ ^ (7r/7r“'’57afe  - 27r“'^7r/d7a6) 

-H  — (d7r“Saft7r/  - 25-rc^^nab)  , 

7 


(2.89) 
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and  finally 


[2A-D6  (tt.Vt'/')  7'/'] 


25N^D,  (7t,V7'/'')  - 25Tr^^DaNkh^l‘^ 

5^ab  [27r'"^De.V77'/2  _ (,V%“V7'/')] 


- D4.V“7r''^<iW7'/') 

+ D727V6-57t“V7'/') 

+ Da  (2A^7-d76c/7'/')  • (2.90) 


After  substituting  the  above  three  variations  into  and  applying  Gauss’  law, 

the  total  variation  in  Hq  becomes 


167rd/fo  = - J {SNJ\f-f^/^  + 25N<^Xa'r^^^  + 5^abV‘^''-Sn‘^^gab)d^x 

+ j (naA^V''’d76c/7'/'  - 2n,Ay7T“V7'/' 

-2naN^TT^^hbch"'^) 

+ j {-Nn^D^Sjab  + Nn^DaSj,^ 

+n^6jabD‘^N  - v!^5-f^DaN)  a^^^(fx.  (2.91) 


It  would  be  useful  to  re-express  the  boundary  terms  of  lOTrdi^o  in  terms  of  only 
the  variations  of  the  geometry,  and  not  derivatives  of  the  variations  [17].  With  this 
goal  in  mind,  we  proceed  to  manipulate  the  surface  integrals  of  Eq.  (2.91). 

We  begin  by  noting  the  surface  integrals  involving  7t“^  may  be  rewritten  as 


16n5Hf  = 


[n,iV“7r'’^d7b77V2  + 2naSN\y-f^/^] 


-28 


(2.92) 
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Turning  our  attention  to  the  surface  terms  involving  S^ab,  we  note  the  hrst  two 
terms  of  the  last  surface  integral  of  Eq.  (2.91)  may  be  written  as 

= y {NnaO^.Db^  (7"")  - NrfabcDaS  (7'’")]  (2.93) 

The  first  term  on  the  right  hand  side  of  Eq.  (2.93)  yields 


NnaG^DbS  (7“") 


2p~^Spa^Df,ric] 


(2.94) 


where  D[.  is  the  two  dimensional  derivative  operator  on  the  boundary.  We  may  further 
simplify  our  expression  by  noting  ND'^{a^Sn^)  = D'jyNa^dn^)  — a^dn^D'^N.  The 
realization  that  the  divergence  term  contributes  to  an  integral  of  a two  dimensional 
divergence  over  the  two  dimensional  boundary,  and  is  indeed  zero  by  Stokes’  theorem, 
allows  us  to  ultimately  express  the  first  term  of  Eq.  (2.93)  as 

j Nnaa^Db5{')^^)a^l^dFx  = j[-N5{a^^)Danb  - a^^bn^DaN 

— 2N  p~^  8 pa^^^  S X . (2.95) 


Now,  we  write  the  second  term  of  the  right  hand  side  of  Eq.  (2.93)  as 

- j Nn^abcDJ  (7*’")  a^/'^d^x=-  j N {n“D,  [a,,5(a'’^)] 

+2rfa^Da  (ricCrj’du'^) } a^^'^d^x. 


(2.96) 
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Substituting  2S{a°'^Danb)  = —7  ^^7  — Da[abcS{a'^^)n“  — 2crj“5n^]  into  the  result  of 
Eq.  (2.96)  yields 


- <b  Nn^abcDaS{^’>‘^)a^/^d^x  = 


N [25{a^’^ DaUf,)  + 2p  ^SpDaU^ 

— 2cr/Z)a((7^‘^dn*)]  cr^^'^cfx.  (2.97) 


However,  Stokes’  theorem  dictates 


N [-2u/D„«5n*)]  a^^^(fx  = 


-2D'^{Na^°Sn^)  + 2a^5n^DaN 
[2cr^“dn^DaA^]  a^^'^cf  x. 


a^lH^x 

(2.98) 


At  long  last,  we  may  write 


— y N-rfaicDad  (7*’^)  a^^^Sx  = 25  N Darfa^^'^d^x 


+ j)  [{-Na-^5a  - 2SN  + 2Np~^Sp)Dan‘^ 

+2a^^5n^DaN]  a^l'^d^x.  (2.99) 


Finally,  we  may  also  note 


a^^Sn^DaN  + n‘^5-/abD’^N  - -f-^Sjn^DaN)a^^^d^x 


= — (pa 


^-^5arfD,Na^i‘^d^x. 


(2.100) 
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Substituting  Eqs.  (2.95)  and  (2.99)  into  Eq.  (2.93),  coupled  with  the  usage  of 
Eqs.  (2.85)  and  (2.100),  we  may  reduce  the  <5q'  surface  terms  of  16tt6Hq  to 


16nSHf  = 25  i 


— (p  [N5{a‘^’^)Darih  + {25N  + Na  ^6a)Dan‘^ 
+a-^San‘^DaN] 


(2.101) 


Using  Eq.  (2.91)  with  Eqs.  (2.92)  and  (2.101),  we  now  dehne  a new  quantity 


Hi. 


mirHi  = IQttHq  + j)  2n^N^-f-H^TTab(J^/^d^x  - j)  2NDa7i^a^^^dh.  (2.102) 

We  are  ultimately  interested  in  how  H\  varies  under  arbitrary,  inhnitesimal  variations 
of  the  geometric  quantities  N,  A^“,  ■jab  and  7t“^,  while  the  location  of  the  boundary 
remains  hxed.  The  resulting  variation  is 

167t577i  = - j {5NAf-jH^  + 25N^Mal^>‘^  + 5^b.bV^^  - 57r“*^„t)  d^x 
— ^ {5a°'^[N DaUb  — aahDc{Nrf)]  + 25NDarf^  d?x 
+ ^ 5^bc  + '^n°'5N^^~^^'^TTab)  (2.103) 

Equation  (2.103)  indicates  how  H\  may  be  used  in  a variational  principle.  If  the 
boundary  conditions  of  the  system  specify  the  values  of  cr“^,  A^,  A^“,  and  if  the  normal 
vector  Ha  is  perpendicular  to  the  shift  vector  A^“  [18],  then  all  of  the  surface  integrals 
of  SHi  vanish.  It  then  follows  that  Hi  is  an  extremum  under  arbitrary,  infinitesimal 
variations  of  N,  jV“,  7af,  and  7t“*  if  and  only  if  the  variation  of  these  quantities  is  about 
a solution  to  the  quasi-stationary  vacuum  Einstein  equations. 
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In  principle,  it  is  perfectly  legitimate  to  specify  the  values  of  cr“*,  N,  N°‘  and  Ua 
on  the  boundary,  but  in  practice  this  boundary  data  does  not  have  a direct  physical 
interpretation  in  the  sense  of  being  directly  correlated  to  quantities  such  as  angular 
momentum  or  mass.  Also,  it  may  not  be  an  “easy”  task  to  determine  the  values  of 
these  geometrical  quantities  which  are  to  be  specified  on  the  boundary.  If  we  are 
to  seek  an  eloquent,  physically  intuitive  variational  principle,  we  must  exert  some 
effort  and  re- formulate  the  variational  principle  for  Hi.  The  quest  for  more  physical 
insight  leads  us  into  a discussion  of  symmetric  trace-free  tensors,  the  very  nature 
of  the  quasi-equilibrium  approximation,  and  a generalized  solution  to  the  linearized 
Einstein  equations  credited  to  Thorne. 

2.5.2  Symmetric  Trace-Free  Tensors 

We  begin  our  efforts  to  re-formulate  our  variational  principle  for  Hi  by  taking 
inspiration  from  Thorne’s  generalized  solution  of  the  linearized  Einstein  equations  [19]. 
Thorne  chooses  a particular  gauge  and  proceeds  to  decompose  his  solution  in  terms  of 
symmetric  trace-free  tensors.  Let  us  first  discuss  some  of  the  properties  of  symmetric 
trace- free  (or  STE)  tensors. 

Tensors  with  a large  number  of  indices,  say  £,  are  common.  We  introduce  a 
convenient  short-hand  notation  as 


The  indices  represent  tensor  components  in  a Cartesian  coordinate  system,  and  the 
tensors  are  both  symmetric  on  all  pairs  of  indices  and  are  trace-free.  The  Cartesian 
components  of  these  STE  tensors  are  functions  of  t and  r only,  are  independent  of  0 
and  (j),  and  are  denoted  with  capital  script  letters.  For  example, 


3\n--.Je-2- 


(2.104) 


(2.105) 
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where 


dTLldO  = Q,  dTJd(l)  = 0.  (2.106) 

It  is  also  useful  to  use  the  abbreviation 


rii  — rij^  rij2  ■ ■ ■ tij^ 


(2.107) 


to  represent  the  outer  product  of  i unit  radial  vectors. 

Another  useful  property  of  the  STF  tensors  which  are  only  dependent  on  t and 
r is 

f r j,  47rf' 

j ALU^Bvn^  dn  = (2.108) 

for  arbitrary  STF  tensors  Al  and  Bi,  where  the  repeated  multi-index  L implies  sum- 
mation and  the  integral  is  performed  over  a unit  sphere  with  area  element  dQ. 

A convenient  representation  of  a STF  tensor  on  a two-sphere  with  £ indices  is 
via  a basis  set  of  2£  + 1 tensors  Ti™,  with  —£<  m < £,  as  dehned  by  Thorne  for  a 
Cartesian  coordinate  system.  It  is  interesting  to  note 


ye^nL  = 


(2.109) 


where  is  the  well-known  spherical  harmonic  function.  It  also  follows 


Tf  = (-1)™(T[-™)*, 


—m\* 


and  that  the  are  orthogonal, 


y(mi  yf.m.2* 


drrt'! 


(2.110) 


(2.111) 
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We  also  note  the  relationship  between  the  for  two  different  Cartesian  co- 
ordinate systems,  where  the  primed  coordinates  are  rotated  by  an  angle  $ about  the 
z-axis  with  respect  to  the  unprimed  coordinates: 

ylm'  ^ ^2.112) 

With  a basis  set  of  STF  tensors  given  by  we  may  decompose  as 

i 

Tt.{t,r)=  Y,  TUt,r)y‘r,  (2.113) 

m=-t 

where  the  coefficients  T(jn{t,r)  are  determined  from  the  orthogonality  condition  de- 
scribed by  Eq.  (2.111). 

If  our  STF  tensor  is  a combination  of  ingoing  and  outgoing  radiation,  then  the 
radiative  terms  may  be  separated  as 

Mt,  r)  = Tt{t  + r)  + - r),  (2.114) 

and  we  may  naturally  decompose  the  individual  radiative  terms  as 

r;"/°“'(t±r)T^.  (2.115) 

m=-e 

If  Ti{t,  r)  is  quasi-stationary  in  a rotating  frame  of  reference,  where  cf>'  = 0 — Qt, 

then 

±r)  = ^2.116) 

for  some  constant  complex  amplitudes  T(m  and  phases  where  Um  = —mi}.  If  the 
waves  have  equal  amounts  of  ingoing  and  outgoing  radiation  for  every  value  of  i and 
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m,  then  the  phases  i)im  are  real.  If  the  STF  tensor  Tl  is  itself  real,  this  implies 

^e,m  = -A-m  (2.117) 

and 

Te,m  = (2.118) 

The  usefulness  of  the  STF  decomposition  will  become  more  apparent  as  we 
proceed  through  our  analysis.  Until  then,  it  is  important  to  point  out  that  if  Ti{t,  r) 
is  a real  valued  tensor  field  which  is  quasi-stationary  when  viewed  in  a rotating  frame, 
and  if  it  has  equal  ingoing  and  outgoing  radiative  terms,  then  the  held  is  completely 
described  in  terms  of  the  amplitudes  T^m  and  phases  subject  to  Eq.  (2.117)  and 
Eq.  (2.118).  For  this  scenario,  Tj,(t,  r)  is  described  by 

e 

TL{t,r)=  7)„Ti"'cos(a;„r + (2.119) 

m=—£ 

The  above  decomposition  for  Ti{t,r)  holds  for  all  values  of  ra. 

2.5.3  Thorne’s  Generalized  Solution  to  the  Linearized  Einstein  Equations 

Recall  the  decomposition  of  the  STF  tensor  helds,  described  by  Eq.  (2.119),  is 
made  possible  by  the  introduction  of  a region  in  which  ingoing  radiation  is  carefully 
matched  with  the  amplitude  and  phases  of  the  outgoing  radiation.  Also  recall  we 
stipulated  the  location  of  this  region  is  subject  to  the  condition  that  the  energy  content 
of  the  gravitational  waves  within  this  volume  of  space  is  much  less  than  that  of  the 
sources  alone.  In  addition  to  this,  we  also  require  the  gravitational  field  to  be  described 
by  the  linearized  Einstein  equations. 

Thorne  [19]  gives  a general  solution  to  the  metric  perturbation  in  the  De- 
Donder  gauge.  He  expresses  his  solution  in  terms  of  the  retarded  mass  and  current 
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moments,  X/,(t  — r)  and  Siit  — r).  For  our  system  in  which  the  metric  is  quasi- 
stationary when  viewed  from  a rotating  frame  of  reference  and  the  ingoing  and  out- 
going gravitational  radiation  have  equal  amplitudes  and  phases,  we  may  express  the 
mass  and  current  moments  in  terms  of  the  amplitudes,  and  Sim,  and  the  respective 
phases  and  subject  to  the  conditions  laid  out  by  Eq.  (2.117)  and  Eq.  (2.118). 
For  this  solution,  the  mass  monopole  is  denoted  as  7o,o-  In  this  mass-centered  coor- 
dinate system  = 0,  is  the  angular  momentum  and  = 0.  In  terms  of  the 
amplitudes  and  the  phases,  Thorne’s  solution  is 

A = 2 E [r-‘  cos  (w„r  + ,»'„)]  e—',  (2.120) 

£m 

30j  = 4 ^ L-l  COS  {uJmT  + 

tm 

H COS  (uJmr  + -dL)] 

(2.121) 


and 


= E [r-'  cos  (<j„r  + t)]  «“"* 

£m 

(^lY+i£ 

z2  1)1  ^^mSim^pg(iy-^L-2'^qL-2  [r“^  COS  (o;„r  + 

(2.122) 


In  the  above  equations,  denotes  the  flat  space  three-metric. 

We  choose  a slightly  different  gauge  in  which  all  of  the  time  dependent  terms, 
those  with  m,  Y 0;  are  removed  from  ^'qq  and  A particular  choice  of  gauge  field  [12] 
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modifies  the  metric  according  to  — 2V(a^6),  where 


d^t/dt  = ^[m  7^  0 part  of  pgo] 


f,m/0 


and 


d^j/dt  = -Vj^t  -[m^O  part  of 


(2.124) 


With  this  particular  choice  of  gauge,  we  may  write  the  lapse  function  N as 


N = = 1 - 7/2, 


(2.125) 


where 


/ = 


J>  / -J 

i=2 


(2.126) 


We  also  define  the  shift  vector  and  our  gauge  choice  reduces  it  to 


= 


-2P%P,S,,oyl'^n,  47(27-1)!! 

^ 4"(7+l)!r^+i 


^ipqS^oy pL—l^gL—l- 


(2.127) 


The  three-metric  7ij  is  given  by 


Ap  — (1  T -^)/p  T ^pi 


(2.128) 


where  all  of  the  information  pertaining  to  the  radiation  is  contained  within  hy.  To 
facilitate  the  description  of  hy,  it  is  useful  to  introduce  a basis  set  of  solutions 
which  obey  the  tensor  wave  equation  in  fiat  space 


= 0, 


(2.129) 
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where  Q runs  over  / and  S.  This  basis  set  of  solutions  are  also  transverse 


^ ^2.130) 

and  trace-free 

fiJH^rnQ  ^ Q ^2.131) 


Written  out  explicitly,  this  basis  set  of  solutions  is 


Tjiml 

^ij 


lf,,yt^L  - 2^iy‘rL-2^,.-2 

Lij  - [r-‘  cos  Kr  + <„)] 

(2.132) 


and 


jrlmS 


[^^"iepq(iJb)pL_2V9L-2 

[r~^  COS  {ujmr  + 


(2.133) 


In  the  local  wave  zone,  where  the  radiation  can  be  regarded  as  a small  pertiir- 
bation  about  a hat  background  metric,  the  leading  1/r  behavior  of  the  basis  solutions 
is 


) y^L-2nL-2  cos  {uj^,r  + - ^tt/2)  (2.134) 


and 


^(mS  _ 


{£  +"i)! cos  {umr  + - iTT/2) 


(2.135) 
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We  complete  the  decomposition  of  the  radiative  part  of  the  metric  hij  by  relating 
it  to  the  basis  solutions  via 


(2.136) 

where 

A'r®  = 

(2.137) 

With  our  choice  of  gauge,  a number  of  usehd  identities  hold  at  linearized  order: 

o' 

II 

> 

(2.138) 

rh,j  = 0, 

(2.139) 

VfcV'^/  = 0, 

(2.140) 

rij5'  = 0, 

(2.141) 

= 0, 

(2.142) 

= 0, 

(2.143) 

and 

- ^ = 0. 

(2.144) 

With  this  particular  choice  of  gauge,  we  also  note  the  linearized  geometry’s 
extrinsic  curvature  /Cy  obeys  the  following  equations 

_ 1 dhij 

~ 2 dt  ' 

(2.145) 

II 

o 

(2.146) 
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and  finally 

^i3  = (2.147) 

We  use  several  of  the  results  from  this  section  to  aid  in  the  evaluation  of  the 
surface  integrals  of  our  variational  principle,  given  by  Eq.  (2.103).  The  following 
section  will  be  dedicated  to  the  explicit  evaluation  of  these  surface  terms. 

2.5.4  Evaluation  of  the  Surface  Terms 

Let  us  refresh  our  memory  as  to  the  purpose  of  studying  Thorne’s  generalized 
solution  to  the  linearized  Einstein  equations,  and  our  introduction  of  the  concept  of 
the  weak  field  zone  boundary.  In  §(2.5.1),  we  dehned  a function  H\  to  be 


167t//i 


j {NAf  + 2N^Xa)^^^^d^x 
2NDan^a^^^(Px, 


(2.148) 


and  the  total  variation  of  Hi  resulted  in 

IGt^SHi  = ~ I + 25N^Mal^''^  + - dlX^'^Qab)  d?x 

- ^ {Sa^‘>  [NDaHh  - aabDc{Nn^)]  + 25N Dari‘S}  d^x 

+ ^ d^ibc  + ‘2n°'8N^''f~^^'^'Kab)  (2.149) 

Recall  a question  arose  as  to  the  feasibility  of  holding  geometrical  ciuantities, 
such  ais  the  lapse  N or  the  two- metric  (Tab,  fixed  on  the  boundary  Sj.  As  stated 
above,  it  may  be  more  desirable  to  specify  the  value  of  physical  observables  on  the 
boundary.  We  now  use  the  linearized  solution  described  in  §(2.5.3)  to  rewrite  the 
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surface  integrals  in  Eq.  (2.149),  in  hopes  that  a more  physically  intuitive  variational 
principle  will  result. 

We  hrst  mention  some  notational  conventions.  At  the  location  of  the  boundary, 
which  is  in  the  weak  field  zone,  the  geometry  is  nearly  flat  and  is  described  by  the 
linearized  Einstein  equations.  In  this  region,  indices  are  raised  and  lowered  by  the  flat 
space  metric  fij,  and  summation  is  implied  for  repeated  indices.  It  is  important  to 
note  some  repeated  indices  may  appear  as  both  being  raised  or  both  lowered,  but  the 
summation  convention  is  still  implied.  The  flat  space  derivative  operator  is  denoted  by 
V°,  where  the  sub-  or  super-script  0 denotes  a quantity  associated  with  the  flat  space 
metric.  We  further  assume  our  weak  held  boundary  is  spherically  symmetric,  and  is 
located  at  a constant  Cartesian  radius  of  r.  The  outward  pointing  unit  normal  to  this 
surface  is  denoted  as  = V°r,  which  is  not  to  be  confused  with  the  vector  Ua  which 
is  normalized  with  the  three- metric  'jab-  Likewise,  the  two- metric  associated  with  the 
spherical  boundary  embedded  in  hat  space  is  afj  = rV°n°,  and  has  determinant  ao. 
Often  times,  quantities  are  contracted  with  the  hat  space  vector  n°,  in  which  case  a 
subscript  r is  used  ( for  example,  hir  = hifriQ  ).  Also,  the  radial  partial  derivative  is 
denoted  as  dr  = tiqV^.  We  also  note  the  shift  vector  in  an  inertial  reference  frame  is 
S\  dehned  by  Eq.  (2.127).  In  a frame  rotating  at  a rate  of  il,  the  rotating  shift  vector 
may  be  written  as 

N^  = iW  + S\  (2.150) 

where  ^'‘d/dx’^  = d/d4). 
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We  may  now  turn  our  attention  to  the  surface  integrals  of  the  variation  of  Hi, 
given  in  Eq.  (2.149).  The  first  surface  integral  of  Eq.  (2.149)  may  be  rewritten  as 


- i [NDam  - a„6D,(iVn^)]  + 25iVDan“}  d' 


X 


'ro 

= 


ro  / 


- 5 N [Oank  - ^aabD.n^^ 

+5  [N-^Darf  - V%)  + 26  n^DaN]  (fx. 


(2.151) 


The  total  variation  of  the  surface  integral  on  the  right  hand  side  will  eventually 
be  absorbed  into  a new  dehnition  for  Hi.  The  remaining  terms  are  of  second  order  in 
the  wave  amplitudes  I(m  and  S(rn,  and  will  require  some  effort  to  rewrite. 

First,  we  rewrite  the  term  involving  rf'dN^'Kab  in  Eq.  (2.149).  Specihcally, 


ro 


2rf6N^') 

= d ^2f2 


'ro 

+ IQnilSJ 


2n°‘SS^j 


(2.152) 


ro 


where 

IQttJ  = — ([  2n“$^7“^^^7Tahcr^/''^d^x.  (2.153) 

J ro 

In  the  vicinity  of  the  weak  field  zone  boundary,  J is  approximately  the  angu- 
lar momentum  S'lo  of  the  linearized  geometry  up  to  first  order  in  the  wave  ampli- 
tudes. Once  again,  the  total  variation  of  the  surface  integral  on  the  right  hand  side 
of  Eq.  (2.152)  will  be  absorbed  into  a new  definition  of  Hi,  and  the  remaining  surface 
terms  are  of  second  order  in  the  wave  amplitudes. 
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We  now  define  a new  function  H2,  which  is  similar  to  Hi,  but  includes  the  total 
variations  of  Eq.  (2.151)  and  Eq.  (2.152): 


167ri/2 


N (2D„n“ 


NV^Uq) 


Jro 
J ro 


(2.154) 


The  second  surface  integral  evaluates  to  Srrro  and  does  not  change  under  a variation. 
It  is  included  so  the  surface  integrals  of  H2  evaluate  to  the  mass  monopole  M — Iqq 
at  hrst  order  in  the  wave  amplitudes. 

Arbitrary,  infinitesimal  variations  in  N,  A’“,  'jab,  and  7r“*  result  in  a variation  in 
H2,  given  by 


167r5if2 


/ 

5 N - \oabD,n^ 

+ 8 {N-^Dan^  - 


+ 25A“A/-„7'/'  + 8-iabV‘^^  - 871‘^^gab]  d^x 
1 


+2(5  n°DaN]  (fx 

+ / [uaiV“7~^/^7r'’''(576c  + 2n“5S''’7"^^^7rafe]  o^^^Sx 
Jtq 

+167rfWJ.  (2.155) 


Note  that  each  of  the  terms  in  the  surface  integrals  are  of  second  order  in  the  wave 
amplitudes  and  S^rn- 

At  this  point,  we  now  attempt  to  rewrite  the  surface  integrals  in  terms  of  the  pa- 
rameters of  the  linearized  geometry,  namely  11,  and  the  variations 

of  these  parameters. 
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Let  us  first  note  the  following  relationship,  valid  up  to  first  order  in  the  linearized 
parameters; 

= (2.156) 

We  now  substitute  Eq.  (2.156)  into  the  last  surface  term  of  Eq.  (2.155)  to  yield 


*/ro 


(2.157) 


Note  the  dhij/dt  term  vanishes  on  integration  because  is  axisymmetric  (m  = 
0),  but  hij  is  necessarily  not  axisymmetric  (m  ^ 0).  Using  the  fact  = 0 in  the 
linearized  geometry,  and  performing  an  integration  by  parts,  we  find  Eq.  (2.157)  may 
be  written  as 

(f  {SS^Si/r  - dS^n^VjSi)  a^^^(fx.  (2.158) 

•Jro 

Using  the  linearized  form  of  the  shift  vector  given  by  Eq.  (2.127),  and  the 
orthogonality  condition  of  the  given  by  Eq.  (2.111),  we  find  the  second  term  on 
the  right  hand  side  of  the  above  equation  is  symmetric  in  55*,  so  we  may  ultimately 
write 


[S^Si/r  - S^drSi)  a^l'^d^x 


ro 


(2.159) 


We  employ  the  result  of  Eq.  (2.159)  after  we  rewrite  the  remaining  surface  terms  of 
Eq.  (2.155). 

Next,  we  note  the  following  useful  identities,  all  accurate  up  to  first  order  in  the 
radiation  amplitudes  and 


N-^DaU^  - = 


2hrr  K 

h n Vj  ( / + —hrr 


(2.160) 


(2.161) 
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1 + / + 


(2.162) 


and 


(2.163) 


Armed  with  the  above  identities,  we  may  analyze  yet  another  portion  of  the 
surface  integrals  of  Eq.  (2.155).  Specihcally, 


Noting  the  expression  for  I given  by  Eq.  (2.126)  and  the  orthogonality  condition 
of  the  yf^  given  by  Eq.  (2.111),  we  hnd  the  last  term  in  Eq.  (2.164)  is  symmetric  in 
/ and  51,  and  may  be  written  as  a total  variation.  The  remaining  terms  of  the  above 
equation  will  eventually  be  combined  with  other  terms  yet  to  be  evaluated  from  the 
surface  integrals  of  Eq.  (2.155). 

We  still  have  one  more  surface  integral  in  Eq.  (2.155)  to  rewrite.  We  first  note 
the  following  useful  identities,  valid  up  to  hrst  order  in  the  linearized  parameters: 


(2.164) 


(2.165) 


and 


(2.166) 
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With  these  two  identities  in  hand,  along  with  the  fact  that  hij  is  transverse  and 
traceless,  we  hnd  we  may  write 


5 N (^Da7lb  - ^CXabDcTl''^  (fx 

(f  —ShrrKr  ~ -Sh^^hij  + -Sh’^’'hri  ~ -ShrrOrhrr  + -6h^^drhij 

fro  r ^ r 4 2 " 


—TijVi 


(2.167) 


The  first  five  terms  of  the  above  equation  will  be  combined  with  other  terms 
we  have  previously  evaluated.  However,  we  still  need  to  focus  on  the  last  term  of 
Eq.  (2.167).  If  we  bring  the  rij  inside  of  the  derivative  and  project  the  i indices 
parallel  and  perpendicular  to  Uj,  we  find  we  may  write 


rijS/i  (8W^akih}^)  a^^'^d^x 


V,  {njShria^^hpr) 

—rdrdVi  [Shjka^^h!'^)  + r~^Oij5h^^akih^^\  o^!‘^Sx. 


(2.168) 


Invoking  Stokes’  theorem,  we  note  the  first  term  on  the  right  hand  side  is  a two- 
dimensional  divergence  of  a two-dimensional  vector  on  a two-dimensional  boundary, 
and  hence  vanishes.  We  may  then  reduce  Eq.  (2.168)  to 

[—2r~^6hria''^hpr  — rdVi  {5hrk<y^^ hir)  -\-  r~^ (2.169) 
J ro 

which  is  symmetric  in  h^j  and  5hij. 

Finally,  we  may  combine  many  of  our  results.  Specifically,  if  we  combine  the 
results  of  Eq.  (2.164),  the  first  hve  terms  of  the  last  integral  in  Eq.  (2.167),  and  the 
result  given  by  Eq.  (2.169),  we  find  the  hrst  surface  integral  of  Eq.  (2.155)  is  equivalent 
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to 


ro 


-5h}^drhij 


3 ■ 

Shirk  jr) a^^dkirkjr  + —Skrrkrr  + SWrl 


a 


= 1^ 


ro  L 


^h^^drhij  — dr{a'‘^  hirhjr) 

3 ■ 5 

CT  ^ hirhjr  I krrkrr  I Idrk 


2r 


+ 


\Sh!‘^drhij  — h^^drShij^  a^^^cfx. 


(2.170) 


ro 


The  total  variation  will  be  used  when  we  write  down  the  final  form  of  the  variational 
principle,  but  we  still  need  to  rewrite  the  second  surface  integral  of  Eq.  (2.170). 

We  note  hij  in  the  final  surface  integral  of  Eq.  (2.170)  is  described  by  Eq.  (2.136) 
and  Eq.  (2.137).  When  expressed  in  terms  of  SQern,  and  SQ,  the  variation  in 

hij  may  be  written  as 


^H^rnQ 


-5ik 


o 

im  + Q^rn 


(2.171) 


We  now  may  substitute  Eq.  (2.136),  Eq.  (2.137)  and  Eq.  (2.171)  into  the  final 
surface  integral  of  Eq.  (2.170).  Integrating  over  the  boundary  using  Eq.  (2.108)  along 
with  the  orthogonality  of  the  allows  the  surface  integral  to  be  written  as  a sum 
of  terms  each  involving  a single  choice  of  i,  m,  and  Q,  namely 


f [Sh^^rhij  - h^^drShij]  G^I’^Sx 
J ro 

= E / ('5dr®«ASg  - Kil^a,ShtP‘^)  (2.172) 

Q;e-,m^0  "'^0 

Paying  particular  attention  to  the  first  term  on  the  right  hand  side,  specifically 
the  portion  that  involves  Sil.  after  substitution  of  Eq.  (2.171),  we  note  the  product 
may  be  written  as  iY  times  a sum  of  terms,  each  of  which  is  a product  of  a 
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function  of  rO  and  a function  of  9 and  (f>.  In  particular,  we  may  write 


oil 


S rH 


imQ\ 


= 5il- 


j mi 


6 (ril) 


+ 


il 


h: 


imQ 


(2.173) 


It  can  be  shown,  with  some  effort,  the  terms  proportional  to  in  Eq.  (2.171) 
and  proportional  to  mi  in  Eq.  (2.173)  do  not  contribute  to  the  surface  integral  we 
are  attempting  to  evaluate.  For  example,  the  term  involving  vanishes  because 

of  the  fact  its  coefficient  is  proportional  to  the  Wronskian  of  two  dependent  solutions 
of  the  same  linear  equation.  This  leaves  us  with  only  the  and  contributions 
to  the  final  surface  integral  of  Eq.  (2.170). 

Once  again  using  the  properties  given  by  Eq.  (2.108)  and  Eq.  (2.111),  and 
evaluating  in  the  wave  zone,  we  find  the  contribution  is 


V 


sH!r‘\ 


a 


1/2^2 


+!){£  + 2) 


\Iem\ 


X 


i2 


(2.174) 


Likewise,  using  the  same  identities  and  evaluating  the  integral  in  the  wave  zone. 


we  find  the  contribution  to  be 


I V y rr*ij 

6i)L  ^ 


I 


‘'J  I 


(m 


ML 


) 


a 


X 


32\umr^H{£  + 2)  2 

(f!)2(^ -!)(£+!)' 


(2.175) 
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Finally  we  see  the  fruits  of  our  labor  by  combining  many  of  the  results  of  this 
section  to  re-staie  the  first  surface  integral  of  Eq.  (2.155),  namely 


ro 


[S  N ( Dam  - 7,^abDx]  + 5 (aV2iv2)  (AT-iD„n“  - V%) 


+26  n^DaN]  £x 


= -(5  I / \—dr(cr^^hirhjr)  — -a^^hirhjr  + -^Krhrr  + IdrI 
2 [fro  " r " 2r 


+ ]:{drD^)drhij  — drdrhij]a^^^(fx\ 

— —5 ii~^[r{drk^^)drhij  — rhijdr{rdrh^^)]u^^^d^x\ 

- 8 J2  + EfJd^J,  (2.176) 

£;m>0 


where 


and 


77/  

^Em  — 


<^771^^"*"^^  + l)(^  + 2)  2 


(2.177) 


2Kp^+i£(£ + !)(£  + 2)  2 

[(£+l)!]2(t'-l) 


(2.178) 


The  coefhcients  are  so  named  because  they  are  the  amount  of  energy  in  a gravi- 
tational wave  for  a (£,  m)  and  (£,  — m)  multipole  in  a spherical  shell  in  the  wave  zone 
which  is  one  wavelength  thick  [12]. 

We  are  almost  to  the  point  of  re-writing  our  variational  principle  for  H2,  given 
by  Eq.  (2.154).  However,  before  we  do,  it  is  convenient  to  dehne  some  new  quantities. 
In  particular,  we  absorb  the  last  surface  integral  of  Eq.  (2.176)  into  the  definition  of 
J to  define  the  effective  angular  momentum,  given  by  Jb 


167t7= 


ro 


[r{drh+)drhij  — drirdrEj)]  a^^'^cfx. 


ro 


(2.179) 
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We  note  is  defined  through  second  order  in  the  wave  amplitudes  Urn  and  Sim,  and 
is  independent  of  the  location  of  the  boundary  up  to  this  order.  In  this  sense,  is 
the  angular  momentum  of  the  source,  without  a contribution  from  the  gravitational 
radiation.  The  necessity  of  this  dehnition  for  will  soon  be  apparent  when  we 
formulate  the  variational  principle  for  nentron  stars. 

Rather  than  redehne  H2,  we  introduce  the  effective  mass,  denoted  by  Aff.  The 
effective  mass  consists  of  surface  integrals  of  H2,  modihed  by  the  surface  integrals 
whose  total  variations  appear  in  Eq.  (2.176)  and  Eq.  (2.159): 


167rAf^=  - (p  N (2D„n“  - NV%)  + I 


ro 


ro  L 


3 5 

-dr  {a^^hirhjr) a^^hirhjr  + —hrrhrr  + lOrl 


2r 

+ ^ {drh'^)  drhij  — ^U^drdrhij 
+ ^ / [S^Sffr  - S‘drSr)  a^/^d^x. 

^ Jro 


(2.180) 


We  note  Aff  is  dehned  through  second  order  in  the  wave  amplitudes  ffm  and  Sim,  and 
does  not  depend  on  the  location  of  the  boundary  up  to  this  order.  In  this  sense,  Aff 
is  the  mass  of  the  source,  without  a contribution  from  the  gravitational  radiation.  We 
may  now  complete  our  description  of  a variational  principle  for  irrotational  binary 
neutron  stars,  in  which  Aff  plays  a central  role. 


2.6  Formulation  of  the  Variational  Principle  for  Irrotational  Binary 

Neutron  Stars 

We  may  now  combine  all  of  our  results  from  the  previous  sections  and  present 
the  variational  principle  for  irrotational  binary  neutron  stars.  We  first  formulate  a 
variational  principle  which  satishes  only  the  fluid  equations  for  irrotational  motion 
described  in  §(2.4),  will  incorporate  the  variational  principle  for  the  matter  into  the 
variational  principle  for  Einstein’s  equations  described  in  §(2.5.4),  and  will  then  finish 
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with  discussions  of  the  properties  of  the  variational  principle,  as  well  as  methods  of 
implementation. 

We  begin  by  noting  a variational  principle  for  the  fluid  may  be  described  by 

i/mat  = [ [NpH  - N^Ja)  (2.181) 

J mat 

where  pn  and  ja  are  given  by  Eq.  (2.68)  and  Eq.  (2.69),  respectively.  In  terms  of  the 
fluid  variables,  the  integrand  may  be  written  as 


NpH  - N‘u  = 2^  [C'  - ^ (D.i,)  D"i-  + ^ (p  - p) . (2.182) 


For  arbitrary  variations  of  N,  N^,  ■jab,  fp,  Po,  and  C the  change  in  i7mat  is 


= CSMb  + 


I [ 


5NPH  - - \s^abS^>^ 


-S^^^  + S(po/h) 


J dmaX 


(2.183) 


where  5“*,  4/,  A,  and  4/amat  are  described  by  Eq.  (2.70),  Eq.  (2.65),  Eq.  (2.66)  and 
Eq.  (2.67),  respectively.  The  rest  mass  of  the  star  is  denoted  as  Mb,  and  is  defined  as 

Mb  = ~ f ponaf/V/'d^x=  / ^(C'  + N“DaV’)7'/'d^x-  (2-184) 

J mat  J mat  ^ 

We  note  if  the  fluid  equations  are  satisfied,  then  Hmat  evaluates  to 


= CM, 


- f 

J mat 


(2.185) 
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The  variational  principle  for  the  fluid  equations,  as  well  as  the  Einstein  equa- 
tions, is  based  on  the  following  definition  of  A/1,  given  as 


IGttA/I  = — I [N{J\f  — 16-kph) + 2N°'{J\fa  + Snja)]^^^'^d^x 
N{2Dan^  - NV%)a^/^(fx  + / 


ro 


ro 


[-dr{a'‘^  hirhjr) 


3 , 
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I f—  Idy'i 

2r 


ro 


+ -j{drhP)drhij  — drdrhij]a^'‘^  Sx 


1 


+ -f  {S^Si/r  - S^drSi)a^/^d^x. 
^ JvQ 


(2.186) 


Under  arbitrary  variations  of  the  geometry  as  well  as  the  fluid  variables,  we  find 


167T(5A/1=—  J [dA^  (A/  — IGttp//)  7^^^  -I-  2SN"'  {Ma  + 87rja)  7^^^ 

' ^ h 

-|-87rd  {po/h)  NA'y^^‘^]  (fx 

J Smat  ' ^ 

- 8 XI  + Efjdfj 

(;m>0 

+ IGrrUdjl  + 167rC5A/B.  (2.187) 


We  can  see  from  Eq.  (2.187)  how  we  may  apply  a variational  principle:  for 
hxed  values  of  the  effective  angular  momentum  Jl,  the  baryonic  rest  mass  Mb,  and 
the  radiation  phases  d^m,  the  effective  mass  A/1  is  an  extremum  under  infinitesimal 
variations  of  the  matter  and  geometry  precisely  when  the  matter  and  geometry  are 
solutions  to  the  quasi-stationary  Einstein  equations  and  the  equations  for  irrotational 
fluid  how. 


The  variational  principle  also  yields  an  accurate  estimate  of  the  value  of  A/E 
Assume  a geometry  and  matter  distribution  which  is  an  approximate  solution  of  the 
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quasi-stationary  Einstein  equations,  and  differs  from  an  exact  solution  by  0(5).  If  so, 
then  the  difference  between  A'P  for  the  exact  solution  and  AP  for  the  approximate 
solution  is  0(5^),  as  long  as  the  parameters  Jl,  Ms,  and  the  phases  are  the  same 
for  the  two  geometries. 

The  variational  principle  also  allows  one  to  calculate  values  for  the  parameters 
C,  and  the  radiation  coefficients  Eim  in  the  following  fashion.  Assume  a geometry 
and  matter  distribution  differs  from  an  exact  solution  by  0{S),  with  parameters  J\ 
Mb,  and  phases  '^em-  This  configuration  yields  some  value  of  the  effective  mass  Mb 
Now,  alter  the  geometry  by  changing  the  value  of  the  effective  angular  momentum 
by  some  amount  AJl,  holding  all  other  quantities  hxed.  This  change  in  the  effective 
angular  momentum  will  correspond  to  a change  in  the  effective  mass  with  error  of 
0(5^)  via 

AM^  = nA.P  + O (52) . (2.188) 

From  Eq.  (2.188),  one  can  easily  see  estimates  of  11,  accurate  to  order  0(5^),  may  be 
determined  via 

11  = AMVAJI  + O (52)  . (2.189) 

In  a similar  fashion,  estimates  of  C and  of  the  energies  Eirn  also  be  determined, 
accurate  to  0(52),  procedure  leads  us  to  a technical  definition  of  the  constant  C: 
it  is  the  derivative  of  the  effective  mass  with  respect  to  the  rest  mass  of  the  neutron 
star  holding  all  other  physical  parameters  fixed.  A more  intiiitive  explanation  of  the 
role  of  C may  be  seen  from  Eq.  (2.187).  Imagine  injecting  a single  baryon  of  mass  mg 
into  our  system,  holding  the  angular  momentum  fixed — Eq.  (2.187)  indicates  Cttib 
is  the  mass  increase  per  baryon  of  the  system  for  hxed  angular  momentum.  This  is 
sometimes  referred  to  as  the  relativistic  chemical  potential  or  the  injection  energy  [10]. 
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2.7  Discussion 

In  closing,  we  point  out  some  of  the  highlights  of  our  analysis  of  binary  neutron 
stars  undergoing  irrotational  motion.  The  expressions  for  the  effective  mass  given 
by  Eq.  (2.186),  and  the  effective  angular  momentum  Jf,  given  by  Eq.  (2.179),  are  of 
great  interest.  As  far  as  quantities  such  as  mass  or  angular  momentum  can  be  dehned 
in  the  framework  of  General  Relativity,  they  can  be  viewed  as  the  mass  and  angular 
momentum  due  to  the  sources  alone,  without  a contribution  from  the  gravitational 
radiation  present  in  the  system.  We  assert  these  quantities  are  not  a measure  of  the 
energy  or  the  angular  momentum  of  the  radiation  because  and  are  independent 
of  the  location  of  the  boundary  in  which  they  are  evaluated. 

The  expression  for  AP  not  only  yields  a measure  of  the  mass  of  the  system, 
but  also  generates  a variational  principle  for  our  neutron  stars.  We  found,  as  shown 
in  Eq.  (2.187),  an  extremum  in  AP  corresponds  to  a solution  of  the  quasi-stationary 
Einstein  equations  and  the  fluid  equations  for  irrotational  motion  for  fixed  values  of 
the  effective  angular  momentum  P , the  baryonic  mass  of  the  stars  and  the  phases 
of  the  gravitational  radiation  Hence,  AP  provides  a means  of  generating  realistic 
solutions  which  satisfy  the  quasi-stationary  Einstein  equations  and  the  irrotational 
fluid  equations. 

We  also  found  the  variational  principle  allows  a means  for  determining  accurate 
estimates  of  the  orbital  angular  frequency  il,  the  gravitational  wave  energies  E^rni 
as  well  as  the  relativistic  chemical  potential  parameter  C,  which  are  of  interest  to 
those  investigating  gravitational  wave  signals.  Knowledge  of  G can  be  used  to  yield 
estimates  of  the  time  evolution  of  the  angular  frequency,  perhaps  to  a time  very  late  in 
the  evolution  of  the  system.  Knowledge  of  the  relativistic  chemical  potential  may  be 
used  to  extract  useful  information  about  the  structure  and  state  of  matter  of  neutron 


stars. 
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The  variational  principle  for  is  justification  for  the  numerical  techniques 
employed  by  some  investigators  [14, 15,20--23].  In  past  numerical  studies,  it  was  not 
clear  what  mathematical  framework  was  used  when  investigators  formulated  their 
variational  principles.  Now,  with  this  work,  investigators  are  given  a clear  road  map 
to  approach  numerical  studies — specifically,  which  quantities  should  be  held  fixed  as 
they  generate  their  sequence  of  solutions  to  the  quasi-stationary  Einstein  equations 
and  the  fluid  equations  for  irrotational  motion.  For  systems  in  which  gravitational 
radiation  is  completely  “shut  off” , it  is  clear  the  effective  angular  momentum  and  the 
baryonic  mass  of  the  system  should  be  held  fixed  in  order  to  determine  a realistic 
solution  to  the  equations  of  interest.  However,  if  investigators  choose  to  include  the 
effects  of  radiation  in  their  analysis,  they  must  also  ensure  the  phases  of  the  radiation 
are  hxed  as  they  generate  their  solution. 

The  variational  principle  for  Afl  acts  as  a proving  ground  for  those  numerical 
studies  in  which  the  conformally  flat  conjecture  is  used  [14, 15,  20,  21,  23].  The  confor- 
mally flat  conjecture  assumes  the  geometry  is  conformally  flat  and  that  the  effects  of 
gravitational  radiation  may  be  neglected.  In  principle,  one  can  employ  the  variational 
principle  for  M\  using  the  same  parameters  as  the  conformally  flat  geometries  used 
by  other  investigators.  This  will  allow  the  angular  frequencies  and  energies  of  the 
radiation  to  be  compared  to  those  derived  from  the  conformally  flat  studies.  If  a large 
variation  in  the  comparison  of  these  quantities  is  observed,  then  it  would  indicate  the 
conformally  fiat  metric,  and  their  assertions  that  gravitational  radiation  effects  can  be 
neglected,  are  erroneous.  However,  if  little  variation  is  observed  in  these  quantities, 
it  would  indicate  the  conformally  flat  studies  are  well-justified  in  their  assumptions. 


CHAPTER  3 

THE  INITIAL  VALUE  PROBLEM:  A VARIATIONAL  PRINCIPLE  FOR  BINARY 

BLACK  HOLES 

One  of  the  remaining  unresolved  issues  in  numerical  relativity  is  known  as  the 
initial  value  problem.  Specihcally,  how  does  one  determine  physically  realistic  initial 
data  for  binary  black  hole  systems?  It  is  this  initial  data  which  in  turn  is  evolved  in 
time  via  the  Einstein  equations,  so  if  one  wishes  to  generate  reliable  predictions  about 
the  location  and  angular  frequency  of  the  innermost  stable  circular  orbit,  then  it  is 
vital  that  the  initial  data  be  physically  realistic. 

The  vacuum  constraint  equations  are  the  cornerstone  of  the  initial  value  prob- 
lem. Recall  from  Eq.  (2.32)  the  Hamiltonian  constraint  is 

= (3.1) 

where  JCab  is  the  extrinsic  curvature  associated  with  the  three-metric  and  R is 
the  associated  Ricci  scalar.  Also  recall  from  Eq.  (2.34)  the  momentum  constraint  is 

{ICab  - IC^lab)  = 0,  (3.2) 

where  is  the  covariant  derivative  compatible  with  the  three- metric  ^ab-  These 
constraint  equations  must  be  satisfied  on  every  spacelike  hypersurface,  but  do  not 
determine  the  dynamics  of  the  geometry. 

A solution  to  the  initial  value  problem  consists  of  a three-metric  ^ab  ^^nd  an 
extrinsic  curvature  Kab  which  satisfy  Eqs.  (3.1)  and  (3.2).  However,  one  notes  the 
equations  are  coupled,  nonlinear  equations — this  greatly  complicates  any  efforts  to 
generate  either  analytic  or  numerical  solutions  to  the  initial  value  equations.  To  sim- 
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plify  the  analysis,  we  assume  the  three-metric  is  conformally  flat.  This  introduces 
the  conformal  factor  ^ via  the  relationship 

'lab  ”0  9abi  (d-3) 

where  gab  is  the  flat  three-metric.  Under  the  conformal  flatness  assumption,  the 
extrinsic  curvature  transforms  as  well  according  to 

ICab  = (3.4) 

We  call  Kab  the  conformal  extrinsic  curvature. 

In  addition  to  the  conformally  flat  assumption,  we  choose  the  maximal  slicing 
gauge  [24],  which  corresponds  to  the  conformal  extrinsic  curvature  being  trace-free: 

K:  = 0.  (3.5) 

By  assuming  a conformally  fiat  three-metric,  as  well  as  choosing  the  maximal 
slicing  gauge,  we  effectively  decouple  the  constraint  equations,  making  them  more 
amenable  to  studjc  In  particular,  the  Hamiltonian  constraint  equation  becomes 

VV  + \KabK<^'^r"  = 0,  (3.6) 

where  the  operator  is  the  flat  space  Laplacian.  Likewise,  the  momentum  constraint 
simplifies  to 

VbK^^  = 0.  (3.7) 

Hence,  determination  of  Kab  and  tp  via  Eq.  (3.6)  and  Eq.  (3.7)  completely  specify  the 
geometry  on  an  initial  space-like  hypersurface.  In  practice,  one  would  take  this  initial 
data  and  evolve  it  via  the  dynamical  Einstein  equations. 


54 


However,  a question  arises:  how  does  one  determine  physically  realistic  initial 
data — data  which  is  truly  representative  of  binary  black  holes  in  circular  orbits?  The 
answer  to  this  question  has  a long  and  interesting  history — one  which  we  briefly 
recount. 

The  hrst  attempt  at  realistic  initial  data  is  the  result  of  work  by  Misner  and 
Wheeler  [25,26].  Misner  studied  the  situation  in  which  two  masses  were  initially  at 
rest,  and  found  that  the  topology  was  analogous  to  that  of  a Wheeler  wormhole — a 
single  “sheet”  of  spacetime  in  which  two  separate  locations  on  the  sheet  are  connected 
by  a “throat”.  It  was  later  discovered  that  the  Misner  data  set,  when  expressed  in 
isotropic  coordinates,  could  be  viewed  as  a topology  consisting  of  two  sheets  [26].  Each 
sheet  corresponds  to  a separate  asymptotically  flat  region,  where  the  two  sheets  are 
connected  by  two  “throats”.  In  1963  Brill  and  Lindquist  [27]  generated  an  initial  data 
set  which  corresponded  to  a three-sheeted  geometry,  each  sheet  again  corresponding 
to  a separate  asymptotically  flat  region. 

During  the  intervening  years,  many  have  investigated  the  properties  of  the  two- 
and  three-sheeted  geometries.  For  instance,  Bowen  and  York  [24]  studied  black  holes 
using  the  two-sheeted  geometry.  However,  the  two-sheeted  analysis  introduces  several 
complications,  most  notably  the  need  for  boundary  conditions  not  only  at  spatial 
inhnity  of  the  upper  sheet,  but  also  at  the  locations  of  the  throats  of  the  holes.  These 
conditions  at  the  throats  are  typically  based  on  how  the  conformal  factor  and 
the  extrinsic  curvature  Kab  behave  under  a coordinate  inversion  through  the  throats. 
Despite  the  added  complications  associated  with  the  Misner  data  set,  it  has  been 
widely  used  by  a number  of  investigators  to  study  black  hole  collisions  [24,28-32]. 

In  1997  Brandt  and  Briigmann  [4]  proposed  a method  which  would  reduce  the 
number  of  complications  introduced  by  the  Misner  data  set.  They  choose  a topology  in 
accordance  with  the  Brill  data,  and  proposed  a method  to  compactify  the  lower  sheets 
asymptotically  flat  regions.  This  compactification  effectively  simplifies  the  domain  of 
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integration  in  which  the  constraint  equations  must  be  solved.  Simply  stated,  the 
compactification  of  an  asymptotically  flat  region  to  a single  point  in  eliminates 
the  need  to  impose  boundary  conditions  at  the  throat  and  eliminates  the  need  to 
excise  domains  of  integration. 

Solutions  to  the  momentum  constraint,  Eq.  (3.7),  are  well-known  for  single  black 
holes  with  arbitrary  linear  and  spin  angular  momentum  [24].  The  trace- free  extrinsic 
curvature  which  satishes  the  momentum  constraint  is  of  the  form 

+ PV  - (j“*  - n V)  PX] 

+ I [€‘^S,njn>‘  + f“Sorijn“]  , (3.8) 

where  P“  and  5“  are  the  linear  momentum  and  spin  angular  momentum  of  the  black 
hole  measured  on  the  upper  sheet  of  the  geometry.  Because  the  conformal  metric  is 
hat,  we  may  use  normal  Cartesian  coordinates,  where  is  a radial  normal  vector  of 
the  form  = x°'/r,  where  + y'^  + z'^ . For  a geometry  which  consists  of  N 

black  holes,  the  extrinsic  curvature  is  given  by 

N 

= (3.9) 

1=1 

with  each  term  in  the  sum  having  its  own  coordinate  origin.  Note  for  N black  holes 
on  the  upper  sheet,  there  are  a total  of  -f- 1 sheets  in  the  geometry,  each  with  it’s 
own  separate  asymptotically  hat  region. 

Brandt  and  Briigmann  then  proceed  to  solve  the  Hamiltonian  constraint,  given 
by  Eq.  (3.6),  rewriting  the  conformal  factor  ip  as 

tp=  - + U, 

a 


(3.10) 
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where  l/o;  is  given  via 


1 ^ 

- = E 

a ^ 


M, 


(i) 


(3.11) 


tt^\r-r(i)y 

where  Mi  is  the  mass  of  the  hole,  and  'F(j)  is  the  coordinate  location  of  the  corre- 
sponding hole. 

With  these  identihcations,  the  Hamiltonian  constraint  becomes  a nonlinear  el- 
liptic equation  for  U : 

+ f3  {1  + aUy^  = 0,  (3.12) 

where  8 is  related  to  the  conformal  extrinsic  curvature  via 


8 = -a'^K^^Kab. 


(3.13) 


Recall  we  demand  asymptotic  flatness  on  the  upper  sheet,  which  determines  the 
boundary  condition  on  U at  spatial  inhnity.  This  Robin  boundary  condition  may  be 
stated  as 

fin  \-U 

— (3.14) 


dr 


wdiich  may  be  interpreted  as  demanding  that  U consists  primarily  of  a monopole  term 
as  one  recedes  far  from  the  black  holes. 

Hence,  Eq.  (3.8)  which  satishes  the  momentum  constraint,  coupled  to  Eq.  (3.12) 
and  Eq.  (3.14)  complete  the  mathematical  description  of  the  initial  value  problem.  It 
is  important  to  reiterate  Eq.  (3.12)  may  be  “easily”  solved  on  without  the  need  of 
any  boundary  conditions  at  the  throats  of  the  punctures.  Discussion  of  the  method  of 
solution  and  numerical  results  of  Eq.  (3.12)  will  be  covered  in  the  following  chapters. 

As  motivation,  let  us  describe  the  work  of  Baumgarte  [33]  and  his  investiga- 
tions into  circular  orbits  of  binary  black  hole  systems.  Batimgarte  also  chooses  the 
three-sheeted  topology  to  describe  his  binary  system,  and  also  adopts  the  “puncture” 
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method  of  Brandt  and  Briigmann.  Baumgarte  proceeds  to  formulate  a minimization 
principle  in  the  following  fashion,  which  is  in  line  with  the  method  of  Cook  [29], 

For  a system  of  equal  mass  black  holes,  and  for  a particular  choice  of  angular 
momentum  J for  the  system,  Baumgarte  demands  the  momenta  P of  the  punctures  are 
equal  in  magnitude  and  opposite  in  direction,  and  that  the  total  separation  distance  is 
given  by  the  quantity  D.  For  circular  orbits,  he  also  demands  P-D  = 0.  The  momenta 
P are  determined  by  the  choice  of  the  angular  momentum  J and  the  separation 
distance  D via  J = PD. 

Baumgarte  then  identifies  the  irreducible  mass  of  the  individual  punctures,  ap- 
proximately given  by  Christodolou’s  formula 


where  A is  the  area  of  the  black  hole’s  apparent  horizon  [34],  He  then  goes  on  to 
dehne  an  effective  potential,  given  by  the  binding  energy  of  the  system: 


where  F’adm  is  the  ADM  mass  of  the  system  (see  §(4.4.4)  for  a discussion  of  the 
ADM  mass).  Baumgarte  then  varies  the  separation  distance  between  the  black  holes, 
and  looks  for  minima  in  the  binding  energy  for  fixed  values  of  angular  momentum  J 
and  for  fixed  values  of  the  apparent  horizon  areas  A.  The  minimum  in  the  binding 
energy  for  some  value  of  the  coordinate  separation  distance  D on  the  initial  slice  is 
the  necessary  condition  for  circular  orbits,  given  by 


.4 


(3.15) 


— £^adm  — 2M, 


(3.16) 


(3.17) 
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Likewise,  the  orbit’s  angular  frequency  may  be  determined  from 


(3.18) 

A 

A Newtonian  example  of  the  above  two  equations  may  help  to  solidify  this 
concept.  Assume  we  are  studying  a system  of  two  equal  mass  point  particles,  each  of 
mass  M.  The  system  has  a total  angular  momentum  J and  the  point  particles  are 
separated  by  a distance  D.  The  energy  of  the  system  may  be  written  as 


^b  = 


A/2 


(3.19) 


Application  of  the  condition  for  circular  orbits,  Eq.  (3.17),  to  the  energy  given 
in  Eq.  (3.19)  yields  a relationship  between  the  angular  momentum  J,  the  mass  M, 
and  the  separation  distance  D: 

2J2 

(3.20) 

Hence,  for  specihed  values  of  J and  M,  one  may  determine  the  location  of  the 
circular  Newtonian  orbit.  We  may  also  generate  an  expression  for  the  orbital  angular 
frequency  il,  as  determined  by  Eq.  (3.18),  which  yields 


n 


2J 

DHf 


(3.21) 


We  may  combine  the  results  of  Eq.  (3.20)  and  Eq.  (3.21)  to  yield  the  familiar 
form  of  Kepler’s  third  law  of  planetary  motion: 

(3.22) 

In  this  fashion,  Baumgarte  proceeds  to  generate  a sequence  of  circular  orbits, 
terminating  at  the  innermost  stable  circular  orbit.  One  of  his  main  conclusions  is 
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the  agreement  between  his  results  (which  are  based  on  Brill  data)  and  those  of  Cook 
(which  are  based  on  Misner  data).  He  concludes  the  underlying  topology  is  not  a 
strong  determining  factor  of  the  resulting  physics. 

Despite  all  of  the  simplifications  introduced  by  the  three  sheeted  topology  and 
the  puncture  method  of  Brandt  and  Briigmann,  Baumgarte’s  analysis  is  complicated 
by  holding  the  apparent  horizon  areas  fixed  as  he  generates  his  sequence.  The  al- 
gorithm Baumgarte  et  al.  employ  is  described  in  [35],  in  which  the  location  of  the 
apparent  horizon  is  expressed  in  terms  of  symmetric  trace-free  tensors.  The  coeffi- 
cients of  these  tensors  are  varied  until  the  equation  describing  the  expansion  of  null 
geodesics  drops  below  some  specified  tolerance  level.  The  horizon-finding  code  appears 
to  reproduce  the  horizons  associated  with  the  Schwarzschild  geometry  to  arbitrarily 
high  degrees  of  accuracy,  and  the  authors  indicate  varying  degrees  of  success  with 
situations  in  which  the  horizons  are  only  slightly  distorted. 

In  the  heuristic  extremum  principle  used  by  Baumgarte  there  appears  no  specihc 
reason  for  holding  the  areas  of  the  apparent  horizons  fixed  while  searching  for  the 
extremum  in  the  binding  energy.  This  method  could  be  legitimate  for  the  two-sheeted 
Misner  data  of  Cook  [32],  but  our  analysis  indicates  the  apparent  horizon  area  need 
not  be  held  fixed  for  the  three-sheeted  Brill  data. 

As  was  demonstrated  by  Blackburn  and  Detweiler  [36],  a variational  principle 
for  a binary  black  hole  system  with  the  Brill  topology  has  the  form 

dE'ADM  = —2N8fn  -f  il5J,  (3.23) 

assuming  the  quasi-stationary  Einstein  equations  are  satished,  and  the  system  does 
not  contain  any  radiation.  In  the  above  ecpiation,  E^adm  is  the  ADM  mass  of  the 
system,  as  measured  on  the  upper  sheet,  N is  the  ratio  of  the  lapse  functions  on  the 
lower  sheets  to  that  of  the  upper  sheet,  m is  the  “bare”  mass  of  the  hole  as  measured 
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on  a lower  sheet,  0 is  the  angular  frequency  of  the  binary  system,  and  J is  the  angular 
momentum  of  the  binary  system.  The  appearance  of  the  ratio  of  the  lapse  N may 
be  somewhat  surprising,  but  the  quasi-equilibrium  approximation  (and  the  existence 
of  the  approximate  Killing  vector  d/dt  + i}d/d(j))  eliminate  the  arbitrary  nature  of 
the  lapse.  The  variational  principle  of  Blackburn  and  Detweiler  demonstrates  one 
should  hx  the  values  of  the  bare  mass  and  the  angular  momentum  of  the  black  holes 
if  they  wish  to  determine  an  extremum  in  the  ADM  mass.  More  importantly,  the 
extremum  in  the  ADM  mass  indicates  the  geometry  with  angular  momentum  J and 
bare  mass  m are  solutions  to  the  cjuasi-equilibrium  Einstein  equations.  This  insight 
is  the  foundation  of  our  application  of  a variational  principle  for  the  ADM  mass, 
employing  the  puncture  method  of  Brandt  and  Briigmann. 

One  question  that  arises  is  the  following:  given  a particular  configuration  on  the 
upper  sheet  of  our  geometry,  how  does  one  determine  the  bare  masses  on  the  lower 
sheets,  and  vice-versa?  We  hrst  recall  the  metric  may  be  written  as 

ds^  = -f  (3.24) 

where  once  again  xp  is  the  conformal  factor,  and  di}  represents  an  element  of  the 
solid  angle.  Also  recall  there  exists  an  isometry  given  by  f = M^/4r,  which  leaves 
invariant  the  coordinate  sphere  at  r = M/2  [24],  and  maps  the  entire  exterior  of  the 
asymptotically  flat  region  into  the  interior  of  that  invariant  sphere.  Note  that  if  we 
were  to  express  the  Schwarzschild  metric  in  these  isotropic  coordinates,  the  conformal 
factor  would  take  the  form  [10] 

^ = 1 + ^,  (3.25) 

where  M is  the  mass  associated  with  the  Schwarzschild  solution.  Hence,  we  should 
expect  a conformal  factor  in  the  coordinate  inverted  space  to  have  a similar  form, 
with  a different  mass  parameter.  Specihcally,  we  perform  the  coordinate  inversion 
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and  attempt  to  write  the  coordinate  inverted  conformal  factor  as 

rrf 

^ = 1 + ^,  (3.26) 

where  m is  the  bare  mass  associated  with  that  particular  asymptotically  flat  region. 
We  begin  our  coordinate  inversion  by  substituting  the  expression  given  above  for  f 
into  the  metric  given  by  Eq.  (3.24).  We  note  we  may  write  the  transformed  metric  as 

ds'^  = (3.27) 


where 

- M 

ip  = '(p—.  (3.28) 

Substituting  the  definition  of  t/;  for  equal  mass  punctures,  given  by  Eq.  (3.10), 
into  Eq.  (3.27),  we  find  takes  the  form 


%l>  = 1 


1 


(^MiUi  + 


M,MA 

2D  ) ’ 


(3.29) 


where  Mi  is  the  “Newtonian”  mass  associated  with  the  puncture  as  measured  on 
the  upper  sheet,  Ui  is  the  value  of  U at  the  puncture,  and  D is  the  separation 
distance  between  the  punctures  on  the  upper  sheet.  Comparison  of  Eq.  (3.29)  to 
Eq.  (3.26)  allows  us  to  identify  the  bare  mass  associated  with  each  puncture  in  each 
puncture’s  asymptotically  flat  region,  denoted  as  mp 


m,  = M,  (Ui  + ^ , (3.30) 

where  i ^ j.  Blackburn  and  Detweiler’s  variational  principle  given  by  Eq.  (3.23)  tells 
us  the  bare  mass  rdi  should  be  held  hxed  as  one  generates  a sequence  for  circular 
orbits. 
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The  application  of  the  variational  principle  follows:  Specify  the  value  of  the 
angular  momentum  J and  the  “bare”  masses  m\  and  m2-  These  quantities  are  to 
be  held  fixed  during  the  analysis.  Then,  initialize  the  puncture  separation  distance 
D,  which  in  turn  determines  the  hole  linear  momentum  P via  J = PD.  Recall  the 
linear  momenta  and  hole  separation  specifies  the  conformal  extrinsic  curvature,  given 
by  Eq.  (3.8).  For  some  initial  guess  of  the  “Newtonian”  masses  Mi  and  M2,  solve  the 
Hamiltonian  constraint  equation  given  by  Eq.  (3.12)  subject  to  the  Robin  boundary 
condition  given  by  Eq.  (3.13).  Once  U is  known,  use  it  to  determine  new  values  for 
the  Newtonian  masses,  as  determined  by  Eq.  (3.30).  Iterate  the  above  procedure  by 
re-solving  the  Hamiltonian  constraint  equation  for  the  new  Newtonian  masses,  and 
re-calculate  the  Newtonian  masses.  When  the  Newtonian  masses  have  converged  to 
within  some  predetermined  tolerance,  then  we  may  assume  we  have  properly  solved 
the  Hamiltonian  constraint  subject  to  fixed  values  of  the  angular  momentum  J and 
the  bare  masses  given  by  m.  At  this  point,  calculate  the  ADM  mass  for  the  system, 
as  described  in  §(4.4.4).  Then,  decrement  the  hole  separation  distance  D,  holding 
the  angidar  momentum  J and  the  bare  masses  m fixed.  Repeat  this  procedure  for  a 
sequence  of  hole  separations,  calculating  the  ADM  mass  at  each  separation  distance 
after  reasonable  convergence  in  the  Newtonian  masses  has  been  obtained. 

Once  the  ADM  mass  for  the  system  has  been  calculated  for  a range  of  separation 
distances  D,  all  the  while  holding  the  angular  momentum  J and  the  bare  masses  fn 
fixed,  we  may  determine  the  location  of  circular  orbits  via 


^-Eadm 

dD 


m,J 


= 0. 


(3.31) 
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Note  the  similarities  between  Eq.  (3.31)  and  Eq.  (3.17).  Our  variational  principle  also 
allows  us  to  calculate  the  orbital  angular  frequency  11,  given  by 

(3.32) 

Again,  note  the  similarities  between  Eq.  (3.32)  and  Eq.  (3.18). 

The  following  chapter  discusses  the  numerical  methods  employed  to  implement 
the  variational  principle,  in  which  we  solve  the  Hamiltonian  constraint,  given  by 
Eq.  (3.12),  subject  to  the  Robin  boundary  condition  Eq.  (3.13).  We  ultimately  gen- 
erate a sequence  of  constant  angular  momentum  curves,  determine  the  minima  in  the 
curves  which  correspond  to  circular  orbits,  and  evaluate  the  orbital  angular  frequency 
in  addition  to  other  physically  interesting  quantities. 


11  = 


dE 


ADM 


dJ 


CHAPTER  4 

NUMERICAL  METHODS 

This  chapter  is  dedicated  to  the  development  of  the  numerical  methods  em- 
ployed to  solve  the  Hamiltonian  constraint  equation  for  the  “puncture”  method  in 
the  previous  chapter.  We  will  begin  by  introducing  the  main  ideas  of  linear  multi- 
grid techniques,  building  up  to  nonlinear  multigrid  techniques,  and  finally  nonlinear 
adaptive  multigrid  techniques.  We  will  close  the  chapter  with  brief  discussions  on 
methods  of  determining  operators  for  numerical  methods,  as  well  as  some  tests  of  the 
computer  code  which  we  developed. 

Multigrid  methods  are  relatively  new  to  the  scene  of  numerical  techniques,  but 
their  power  and  speed  are  widely  recognized  [37-40].  The  development  of  linear 
multigrid  techniques  will  be  presented  via  a toy  problem,  specifically  determining  an 
efficient  and  accurate  way  in  which  to  solve  Poisson-like  equations  with  particular 
boundary  conditions.  Once  the  linear  method  is  developed,  we  use  it  as  a launching 
pad  into  the  realms  of  nonlinear  multigrid  and  nonlinear  adaptive  multigrid. 

4.1  Linear  Multigrid 

First,  we  indicate  the  notation  used  throughout  the  entire  discussion.  The  prob- 
lem at  hand  is  the  determination  of  the  solution  to  the  partial  differential  equation: 

AV  = /^  (4.1) 

where  is  some  linear  difference  operator,  is  the  exact  solution  to  the  equation, 
and  is  a source  term.  The  superscript  h denotes  that  the  operators  and  functions 
exist  on  a grid  of  spacing  h. 
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It  is  possible,  in  the  numerical  sense,  to  solve  the  above  equation  exactly.  This 
may  be  done  via  a direct  solver,  which  effectively  diagonalizes  a matrix  representing 
a system  of  equations  for  the  numerical  grid.  However,  these  methods  can  be  slow  in 
arriving  at  a solution,  especially  if  a large  number  of  grid  points  are  involved  [40]. 

In  an  effort  to  determine  a more  speedy  method,  we  introduce  an  important 
quantity.  A measure  of  how  well  our  approximate  solution  is  doing  to  solve  the 
equation  is  found  in  the  residual  [37],  defined  by 

rh  = jh  _ (4  2) 

where  is  the  approximate  solution.  Obviously,  if  the  residual  is  equal  to  zero,  then 
we  are  assiued  is  an  exact  solution  to  Eq.  (4.1). 

In  theory,  one  selects  a numerical  method  (presumably  iterative)  in  which  to 
solve  Eq.  (4.1).  After  several  iterations,  calculate  the  residual  r^.  If  the  residual 
is  “small”  (where  “small”  means  less  than  some  tolerance  level),  then  you  have  a 
reasonable  approximate  solution  to  Eq.  (4.1).  If  the  residual  is  not  “small”,  then 
simply  iterate  your  numerical  method  some  more  and  re-calculate  the  residual.  This 
process  is  continued  until  one  is  satisfied  with  the  “smallness”  of  the  residual. 

One  such  practical  application  of  this  type  of  numerical  method  is  known  as 
red-black  Gauss-Seidel  relaxation,  or  simply  red-black  relaxation.  In  this  scheme,  one 
imagines  a numerical  grid  to  consist  of  a checkerboard  of  alternating  colors  (hence  the 
name  red-black)  [40].  The  significance  of  the  alternating  colors  is  when  a particular 
grid  point,  say  a “red”  grid  point,  is  being  updated  by  the  relaxation  scheme,  its 
value  only  depends  on  the  black  grid  points  in  the  vicinity  of  the  updated  red  grid 
point.  The  advantage  of  this  is  the  red- black  scheme  allows  one  to  update  all  of  the 
red  points  first,  and  then  all  of  the  black  points. 
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Figure  4.1:  A cartoon  representation  of  a two-dimensional  red-black  nnmerical  grid. 


Despite  the  fact  that  red-black  relaxation  yields  a speed}^  convergence  rate  in 
comparison  to  other  relaxation  schemes,  it  does  have  a major  drawback  which  is 
related  to  the  various  Fourier  modes  which  may  exist  in  an  approximate  solution  to 
Eq.  (4.1).  As  indicated  in  Fig.  4.2,  which  depicts  various  Fourier  modes  of  different 
mode  numbers,  for  low  values  of  the  wavenumber  k the  functions  are  relatively  smooth 
across  the  grid.  How'ever,  as  soon  as  the  wave  number  approaches  a value  comparable 
to  half  the  total  number  of  grid  points,  the  function  begins  to  look  highly  oscillatory. 

Figure  4.3  shows  the  results  of  a simple  one  dimensional  red-black  relaxation 
scheme  for  Laplace’s  equation.  The  initial  solution  input  into  the  relaxation  scheme 
consists  of  a superposition  of  functions  with  wave  numbers  k = 3 and  k = 16,  re- 
spectively. Clearly,  after  twenty  iterations  of  the  relaxation  scheme,  the  /c  = 16  mode 
has  been  completely  suppressed,  leaving  only  the  k = 3 mode.  This  indicates  red- 
black  relaxation  is  exceedingly  efficient  at  relaxing  aw^ay  high  frecjuency  modes,  bnt 
apparently  has  difficulty  suppressing  low  frequency  modes. 

An  even  more  dramatic  demonstration  of  this  effect  is  indicated  in  Fig.  4.4,  in 
which  three  separate  initial  guesses  to  Laplace’s  equation  were  input  into  the  red-black 
relaxation  code,  with  wave  numbers  oi  k = 1,  k = 3,  and  k = 9 respectively.  The 
horizontal  axis  is  the  number  of  iterations,  and  the  vertical  axis  is  an  rms  measure  of 
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Figure  4.2:  Various  Fourier  inodes  on  a one-dimensional  grid  consisting  of  thirteen 
grid  points. 


Amplitude 
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Figure  4.3:  Initial  solution  and  relaxed  solution  for  the  one-dimensional  Laplace  equa- 
tion. 
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Figure  4.4:  Error  of  various  Fourier  modes  as  a function  of  iteration  number. 


the  residual  (called  the  Error  on  this  hgure).  As  indicated  in  the  figure,  the  function 
with  the  highest  frequency  (the  k = 9 mode)  relaxes  to  a solution  after  approximately 
30  iterations.  However,  the  convergence  rate  for  the  k = 3 mode  appears  to  be  much 
slower,  and  the  k = I mode’s  rate  of  convergence  is  horrendously  slow.  In  other  tests, 
even  1000  iterations  had  little  effect  on  the  convergence  of  the  k = I mode.  It  is 
important  to  note  the  lack  of  suppression  of  low  frequency  modes  is  not  inherent  to 
the  red-black  scheme,  but  is  manifest  in  all  relaxation  schemes  [37, 40] . 

This  presents  a problem:  if  all  relaxation  schemes  fail  to  suppress  low  frequency 
noise  in  a reasonable  number  of  iterations,  then  how  can  one  hope  to  solve  Ecj.  (4.1) 
quickly  and  efficiently?  The  answer  lies  in  the  following  realization:  low  frequency 
modes  on  a grid  of  spacing  h look  like  high  frequency  modes  on  a grid  of  spacing 
2h  [37,38].  Stated  another  way,  low  frequency  modes  on  a fine  grid  look  like  high 
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frequency  modes  on  a coarse  grid.  If  one  could  somehow  transfer  information  about 
the  approximate  solution  to  a coarser  grid,  and  then  apply  the  red-black  relaxation 
scheme  on  that  coarser  grid,  the  low  frequency  components  of  on  the  hue  grid  will 
be  converted  into  high  frequency  components  on  the  coarse  grid,  and  will  in  turn  be 
suppressed  by  the  relaxation  scheme.  However,  we  must  hrst  discuss  a method  to 
transfer,  or  restrict,  information  from  a fine  grid  to  a coarse  grid. 

As  an  illustrative  example,  assume  we  wish  to  restrict  the  value  of  a function 
at  a particular  grid  point  denoted  as  v^,  to  a coarser  grid  level.  A simple  one- 
dimensional example  of  a restriction  scheme  is  known  as  full- weighting  restriction  [37]. 
This  is  a method  in  which  the  values  from  grid  point  nf  as  well  as  the  values  at  grid 
points  and  help  to  determine  the  restricted  value  of  the  function  on  the 
coarser  level,  denoted  by  v'^^.  Short  hand  notation  for  the  restriction  operator  is 
and  can  be  seen  as  operating  on  the  hne  grid  function  in  the  following  way: 

^2/i  ^ (4.3) 

In  general,  it  is  somewhat  arbitrary  how  one  chooses  the  weighting  associated 
with  the  value  of  the  function  at  grid  points  ± 1 , etc...,  but  any  choice  is  subject 
to  the  constraint  that  if  the  value  of  is  equal  to  one  everywhere,  then  the  value  of 
should  also  be  equal  to  one  everywhere.  For  example,  a legitimate  choice  [37]  of 
a one-dimensional  restriction  scheme  is 

^ [nf^i  + nf_i]  , (4.4) 

where  an  illegitimate  choice  of  a one-dimensional  restriction  scheme  would  be 
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An  implementation  of  the  above  (correct)  full- weighting  restriction  is  shown 
in  Fig.  4.5  for  a A:  = 6 Fourier  mode.  One  will  note  this  mode  is  already  of  a 
relatively  high  frequency  on  the  hne  grid  consisting  of  17  grid  points.  However,  when 
restricted  to  the  coarse  grid  consisting  of  9 grid  points,  the  restricted  function  consists 
of  even  higher  frequency  modes.  This  is  to  our  benefit,  because  we  know  that  our 
red-black  relaxation  scheme  will  have  no  difficulty  whatsoever  in  suppressing  these 
high  frequency  modes  on  the  coarse  grid. 

It  is  important  to  briefiy  note  the  following  question;  If  one  knows  the  form 
of  the  fine  grid  operator  then  is  it  proper  to  use  the  same  operator  on  a coarse 
grid  for  subsequent  relaxation?  The  answer,  it  would  appear,  is  a resounding  “it 
depends” . In  our  investigations  of  systems  involving  linear  operators,  there  were  no 
ill  effects  when  using  the  same  operator  on  all  grid  levels,  fine  or  coarse.  We  will 
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find  when  dealing  with  nonlinear  adaptive  multigrid  our  coarse  grid  operator  will  be 
determined  by  what  is  called  the  Galerkin  condition  [37,38].  However,  we  will  defer 
any  further  discussion  of  the  Galerkin  condition  at  this  point,  as  it  has  little  bearing 
on  our  development  of  multigrid  methods  for  linear  operators. 

Let  us  review  where  we  currently  stand.  We  know  relaxation  on  a hne  grid  will 
suppress  the  high  frequency  modes  of  a function,  but  does  an  unsatisfactory  job  of 
suppressing  the  low  frequency  modes  on  that  level.  We  now  know  how  to  restrict 
information  on  that  hne  level  to  a coarse  level.  This  is  useful  because  we  know  low 
frequency  modes  on  a hne  level  look  like  high  frequency  modes  on  a coarse  level.  This 
will  allow  us  to  suppress  that  low  frequency  mode  by  applying  our  relaxation  scheme 
once  again  to  the  restricted  function  on  the  coarse  level.  There  is  one  last  piece  of 
the  puzzle  remaining;  transferring  information  from  the  coarse  level  back  to  the  hne 
level. 

Once  again,  let  us  use  an  illustrative  example  as  a demonstration.  Assume  we 
wish  to  transfer,  or  interpolate,  the  value  of  a function  at  a particular  grid  point  i, 
denoted  as  back  to  the  hne  grid  level.  Short  hand  notation  for  the  interpolation 
operator  is  and  can  be  seen  as  operating  on  the  coarse  grid  function  in  the 
following  way: 

tA  = (4.5) 

Unlike  the  restriction  operator  we  are  constrained  as  to  what  form  the 
interpolation  operator  takes.  This  condition  may  be  expressed  as 

4 - (4.6) 

where  c is  some  constant  [38].  In  words,  the  interpolation  operator  is  the  transpose 
of  the  restriction  operator,  multiplied  by  some  real- valued  constant.  A simple  one 
dimensional  example  of  an  interpolation  operator,  which  is  consistent  with  Eq.  (4.4), 
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is  known  as  linear  interpolation.  Simply  stated,  fine  grid  points  which  correspond  to 
coarse  grid  points  take  on  the  value  of  the  coarse  grid  point.  Intermediate  fine  grid 
points  are  simply  an  average  of  the  neighboring  fine  grid  points.  Stated  algorithmi- 
cally, 

4-1  = vf,  (4.7) 

where  i denotes  the  coarse  grid  number,  and 

4 = 5 , (4.8) 

which  is  applied  to  the  intermediate  hue  grid  points. 

Figure  4.6  is  a specific  example  of  the  one  dimensional  linear  interpolation 
scheme,  as  applied  to  a coarse  grid  function  consisting  of  a superposition  of  A’  = 3 
and  A = 6 Fourier  modes.  The  figure  shows  the  information  which  is  represented 
on  the  coarse  grid  is  transferred  to  the  fine  grid  with  little  or  no  change — i.e.,  the 
coarse  grid  function  is  accurately  represented  by  the  interpolated  function.  This  is 
important  because  we  have  made  great  gains  in  being  able  to  suppress  low  frequency 
modes  through  the  restriction  and  eventual  relaxation  on  coarse  grid  levels.  It  would 
be  an  unfortunate  circumstance  if  we  were  to  lose  a large  portion  of  the  relaxed  coarse 
grid  function  on  application  of  the  interpolation  operator. 

We  now  have  all  the  foundations  of  multigrid  laid  in  place.  Now  we  simply  need 
to  determine  a prescription  for  applying  these  tools  to  form  the  multigrid  method  for 
linear  operators.  First,  we  recall  the  equation  describing  the  system  we  would  like  to 
solve,  Eq.  (4.1),  and  also  the  equation  dehning  the  residual  of  the  system,  Eq.  (4.2): 


jh  _ 


(4.9) 

(4.10) 


Amplitude  Amplitude 
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Figure  4.6:  Interpolation  of  the  k = 3 and  k = 6 Fourier  modes  from  coarser  to  finer 
grid  levels. 
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Recall  is  a linear  differential  operator,  is  the  exact  solution  to  the  equation, 
is  the  source  for  the  differential  equation,  is  the  residual,  and  is  an  approximate 
solution  to  the  differential  equation.  We  may  substitute  Eq.  (4.1)  for  into  Eq.  (4.2) 
to  yield 

r'*  = ylV-7lV\  (4.11) 

and  because  is  a linear  operator,  we  may  rearrange  Eq.  (4.11)  into  the  following 
form: 

A^  {u'^  -v^)  =r^.  (4.12) 

Defining  the  error  [37]  of  our  solution  as 

e^  = yh-  (413) 

we  may  substitute  this  definition  into  Eq.  (4.12)  to  yield  what  is  known  as  the  residual 
equation  [37]  given  by 

A^e^  = r^.  (4.14) 

The  residual  equation  indicates  that  the  error  satishes  the  same  equation  as 
the  unknown  solution  when  the  source  is  replaced  by  the  residual  r^.  This 
is  a very  powerful  statement  and  indicates  a rudimentary  method  to  improve  our 
approximate  solution  u*  to  Eq.  (4.1):  Assuming  some  approximate  solution  has 
been  found  by  some  means,  calculate  the  residual  r^.  Now,  solve  Eq.  (4.14)  for  the 
error,  and  update  the  approximate  solution  lA  by  using  the  definition  of  the  error: 

+ (4.15) 

With  this  rudimentary  idea  in  mind,  we  now  develop  a multigrid  algorithm  for 
linear  operators  known  as  a “V  cycle”  [37]. 
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Assume  you  wish  to  solve  a linear  partial  differential  equation  of  the  form  of 
Eq.  (4.1)  on  a grid  of  dimension  d which  consists  of  n grid  points  on  a side.  Assume 
the  form  of  the  operator  is  known,  and  the  source  is  known  as  well.  The 
algorithm  for  a multigrid  V cycle  is  as  follows: 

• Given  an  initial  guess  lA  on  the  hnest  grid,  perform  several  iterations  of  your 
favorite  relaxation  scheme  to  determine  an  updated  approximate  solution  v^. 

• Calculate  the  residual  due  to  this  approximate  solution  using  Eq.  (4.2). 

• Restrict  the  residual  from  level  h to  level  2h  via 

• Relax  Eq.  (4.14)  on  level  2h,  determining  the  error  for  that  level. 

• Calculate  the  new  residual  on  level  2h  due  to  the  error  and  restrict  this  new 
residual  to  the  next  coarser  level,  level  Ah. 

• Relax  Eq.  (4.14)  on  level  Ah,  determining  the  error  for  that  level. 

This  process  continues  from  hner  to  coarser  level... 

• On  the  coarsest  level,  denoted  as  Nh,  either  solve  Eq.  (4.14)  for  exactly  or 
relax  until  the  resulting  residual  is  sufficiently  small. 

• Interpolate  the  coarse  grid  error  to  the  next  finer  level  and  update  the 

hne  level  correction  via  = ^{N-i)h  Relax  a few  times  to 

suppress  any  spurious  high  frequency  modes. 

This  process  continues  from  coarser  to  hner  level... 

• Interpolate  the  coarse  grid  error  to  the  hnest  level  and  update  the  initial 
approximate  solution  via 

• Calculate  the  residual  on  the  hnest  level  due  to  this  updated  solution.  If 
the  residual  is  below  an  acceptable  level,  then  is  the  numerical  solution  to 
Eq.  (4.1).  Otherwise,  the  newly  updated  becomes  the  starting  point  for  a 
new  V cycle,  in  which  one  would  simply  follow  the  same  procedure  starting  at 
the  top  of  this  list. 


As  a test  of  this  basic  V cycle  process,  a program  was  written  in  C++  to 
solve  a generalized  Poisson  equation  in  one  dimension.  We  chose  to  test  the  code  by 
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Figure  4.7:  The  initial  guess  and  subsequent  solution  to  the  one-dimensional  Laplace 
equation  after  one  multigrid  V cycle. 

attempting  to  solve  Laplace’s  equation  on  a one  dimensional  grid  consisting  of  17  grid 
points,  using  an  initial  solution  consisting  of  Fourier  modes  with  k = 1 and  k = 10. 
The  results  of  running  the  code  through  a single  V cycle  are  shown  in  Fig.  4.7.  It 
would  appear  that  even  after  a single  V cycle,  the  initial  solution  settles  down  to  the 
desired  solution  {u^  = 0).  On  further  inspection  of  the  updated  solution,  as  shown  in 
Fig.  4.8,  we  can  see  that  the  error  in  the  updated  solution  is  on  the  order  of  10“^^. 
As  one  would  expect,  this  error  quickly  approaches  machine  accuracy  as  one  iterates 
through  more  V cycles.  It  is  also  important  to  note  that  for  the  one  dimensional 
test  code,  a single  V cycle  is  completed  in  a mere  fraction  of  a second — what  takes 
multigrid  a mere  blink  of  an  eye  takes  traditional  relaxation  techniques  minutes,  if 
not  hours,  to  accomplish. 


Amplitude 
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Figure  4.8:  Closer  inspection  of  the  solution  to  the  one- dimensional  Laplace  equation 
after  one  multigrid  V cycle. 
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The  generalized  algorithm  for  the  linear  multigrid  V cycle  was  extended  to 
two  and  three  dimensions,  with  great  success.  Tests  were  run  on  the  two  and  three 
dimensional  codes  for  Laplace  and  Poisson  equations;  most  notable  were  test  codes 
written  to  solve  Poisson’s  equation  for  a uniform  density  sphere  and  a uniform  density 
thin  shell.  We  found  for  a three-dimensional  grid  with  n = 33  grid  points  on  a side, 
eight  complete  V cycles  was  more  than  sufficient  to  reduce  the  residual  to  the  level 
of  machine  accuracy,  and  the  resulting  numerical  solutions  conformed  to  analytic 
solutions  to  well  within  1 per  cent. 

With  the  foundations  of  linear  multigrid  in  hand,  we  are  now  able  to  extend  our 
treatment  to  the  regime  of  nonlinear  partial  differential  equations.  We  will  find  much 
of  the  ideas  and  analysis  are  parallel  to  linear  multigrid,  with  a few  subtle  differences. 

4.2  Nonlinear  Multigrid 

One  notational  difference  we  make  is  in  the  differential  operator  itself.  Pre- 
viously, for  a linear  operator  acting  on  a function,  we  would  denote  it  simply  by 
A^u^.  However,  now  that  we  are  dealing  with  nonlinear  differential  operators,  we 
must  be  more  careful  and  will  represent  a nonlinear  operator  acting  on  a function 
simply  by  the  inclusion  of  parenthesis:  A^{u^).  With  this  notational  change  in  mind, 
we  set  about  analyzing  the  following  situation:  assume  we  wish  to  solve  the  nonlinear 
partial  differential  equation 

where  A^{)  now  denotes  a nonlinear  differential  operator,  denotes  the  solution,  and 
is  the  source.  Recalling  our  original  form  for  the  residual. 
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where  once  again  denotes  an  approximate  solution  to  our  original  equation,  we 
may  combine  the  above  two  equations  to  yield 

A^{u^)  - A^{v^)  = (4.17) 

Note  that  if  we  were  still  dealing  with  linear  operators,  we  could  invoke  the 
dehnition  of  the  error,  = vA  — v'\  and  Eq.  (4.17)  would  simply  reduce  to  the  linear 
version  of  the  residual  equation,  Eq.  (4.14).  However,  due  to  the  nonlinear  nature  of 
the  operator  A^{),  we  can  no  longer  make  that  simplifying  step.  Hence,  we  must  now 
use  Eq.  (4.17)  as  our  new  residual  equation  for  nonlinear  operators  [38].  Obviously,  in 
the  limit  that  the  operator  A^{)  becomes  linear,  then  the  nonlinear  residual  equation 
reduces  to  the  linear  residual  equation. 

Now,  the  question  of  implementation  arises.  In  theory,  the  algorithm  for  nonlin- 
ear multigrid  is  very  similar  to  that  for  linear  multigrid.  In  practice,  as  we  see  when 
we  discuss  the  actual  computer  code  used  to  solve  the  Hamiltonian  constraint,  there 
are  some  subtle  points  which  must  be  addressed.  We  will  delay  discussion  of  these 
subtle  points  until  we  list  the  actual  computer  code  in  the  Appendix.  Eor  now,  we 
lay  out  a generalized  algorithm  for  a nonlinear  multigrid  V cycle  [38]. 

Assume  you  wish  to  solve  a nonlinear  partial  differential  equation  of  the  form  of 
Eq.  (4.16)  on  a grid  of  dimension  d which  consists  of  n grid  points  on  a side.  Assume 
the  form  of  the  operator  A^{)  is  known,  and  the  source  is  known  as  well.  The 
algorithm  for  a nonlinear  multigrid  V cycle  is  as  follows. 

• Given  an  initial  guess  v^'  on  the  finest  grid,  perform  several  iterations  of  your 
favorite  relaxation  scheme,  using  the  nonlinear  residual  equation  as  the  basis 
of  that  relaxation  scheme.  This  results  in  an  updated  approximate  solution 
denoted  as  vA. 

• Calculate  the  residual  due  to  the  approximate  solution  using  the  nonlinear  resid- 
ual equation,  Eq.  (4.17). 
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• Restrict  the  residual  from  level  h to  level  2h  via  and  restrict  the 

updated  approximate  solution  from  level  h to  level  2h  via  Note  the 

updated  fine  grid  approximation  becomes  the  initial  coarse  grid  approximation. 

• Using  the  nonlinear  residual  equation  as  the  basis  for  your  relaxation  scheme, 
relax  Eq.  (4.17)  on  level  2h,  resulting  in  an  improved  approximation 

• Calculate  the  new  residual  on  level  2h  using  the  nonlinear  residual  equation, 
and  restrict  this  new  residual  to  the  next  coarser  level,  level  Ah.  Also  restrict 
the  updated  approximate  solution  to  the  coarser  level  initial  approximate 
solution  via 

This  process  continues  from  hner  to  coarser  level... 

• On  the  coarsest  level,  denoted  as  Nh,  relax  Eq.  (4.17)  resulting  in  Calculate 
the  error  on  level  Nh  via  the  traditional  error  formula 

• Interpolate  the  coarse  grid  error  to  the  next  finer  level  and  update  the  hne 

level  approximate  solution  via  Relax  on  the 

updated  solution  a few  times  to  suppress  any  spurious  high  frequency  modes. 

This  process  continues  from  coarser  to  hner  level... 

• Interpolate  the  coarse  grid  error  to  the  hnest  level  and  update  the  approxi- 
mate solution  via 

• Calculate  the  residual  on  the  hnest  level  due  to  this  updated  solution.  If  the 
residual  is  below  an  acceptable  level,  then  is  the  numerical  solution  to 
Eq.  (4.16).  Otherwise,  the  newly  updated  becomes  the  starting  point  for 
a new  V cycle,  in  which  one  would  simply  follow  the  same  procedure  starting 
at  the  top  of  this  list. 


With  the  above  algorithm  laid  out,  we  are  now  able,  in  theory,  to  tackle  a litany 
of  nonlinear  partial  differential  equations.  However,  the  nonlinear  equation  of  the 
Hamiltonian  constraint  given  by  Eq.  (3.12)  requires  a little  more  care.  A natural 
question  arises:  How  does  one  impose  realistic  boundary  conditions  on  a held  when 
solving  a problem  on  a hnite  grid?  This  question  leads  us  into  the  realm  of  nonlinear 
adaptive  multigrid  methods. 
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4.3  Nonlinear  Adaptive  Multigrid 

An  unfortunate  limitation  of  numerical  modeling  is  based  on  attempting  to 
gain  as  much  resolution  as  possible  (i.e.,  a high  density  of  grid  points)  while  also 
imposing  realistic  boundary  conditions.  For  some  applications,  this  does  not  present 
a problem.  For  example,  solving  Laplace’s  equation  for  a temperature  distribution 
on  a two-dimensional  plate  can  be  done  relatively  easily.  Because  the  plate  is  of 
finite  size,  and  because  either  the  temperature  distribution  or  the  derivative  must  be 
specified  on  the  boundary  of  the  plate,  one  can  develop  code  with  relatively  high  grid 
point  densities  without  regard  for  computational  resources. 

On  the  other  hand,  imagine  attempting  to  solve  Poisson’s  equation  for  the  New- 
tonian gravitational  potential  for  a constant  density  star.  Typically,  the  region  of 
interest  is  close  to  the  star,  so  one  would  like  to  have  a relatively  high  density  of 
grid  points  in  that  vicinity.  However,  the  typical  boundary  condition  imposed  on  the 
potential  is  that  it  falls  off  as  1/r  when  one  is  very  far  from  the  star.  Ideally,  we 
would  like  to  impose  this  boundary  condition  an  infinite  distance  from  the  star,  but 
this  is  of  course  impossible  in  the  world  of  numerical  modeling.  If  we  impose  this 
boundary  condition  too  close  to  the  surface  of  the  star,  then  the  resulting  solution 
will  not  model  a physically  realistic  system. 

One  method  of  solving  the  problem  of  fine  resolution  with  realistic  boundary 
conditions  is  via  a method  called  adaptive  multignd  [38].  Many  of  the  ideas  previously 
developed  for  multigrid  are  still  applicable  here,  but  we  add  the  feature  of  variable 
grid  densities  to  increase  or  decrease  the  resolution  around  areas  of  interest.  We  do 
this  in  a way  which  allows  us  to  have  a high  resolution  around  the  area  of  interest,  yet 
which  keeps  the  total  grid  number  at  a level  which  will  not  exceed  machine  memory 
limitations. 

Figure  4.9  is  a simple  illustration  of  the  adaptive  multigrid  concept.  It  can 
roughly  be  thought  of  as  a series  of  embedded  adaptive  levels,  each  with  the  same 
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Figure  4.9:  A simple  two-dimensional  example  of  an  adaptive  grid. 

number  of  total  grid  points,  but  each  consecutive  adaptive  level  is  twice  as  large  as  the 
previous  adaptive  level.  As  we  can  see  in  the  figure,  this  allows  for  a relatively  high  grid 
density  on  the  smallest  adaptive  level.  It  is  important  to  note  boundary  conditions  are 
not  imposed  on  the  smallest  adaptive  level,  nor  on  any  of  the  intermediate  adaptive 
levels.  Only  on  the  largest  adaptive  level  are  the  boundary  conditions  for  the  system 
imposed.  Loosely  speaking,  information  from  the  smallest  level  is  transferred  up 
to  the  next  largest  level.  This  process  is  continued  until  information  from  the  last 
intermediate  adaptive  level  is  transferred  up  to  the  largest  adaptive  level.  Once  at 
this  largest  level,  then  regular  multigrid  methods  can  be  employed,  which  solve  the 
problem  on  the  largest  grid  by  imposing  the  appropriate  boundary  conditions  on  that 
level.  Once  the  multigrid  process  is  completed,  then  the  new  information  on  the  largest 
level  is  transferred  to  the  smaller  intermediate  adaptive  level.  This  process  continues 
until  information  from  the  second  smallest  level  is  transferred  to  the  smallest  adaptive 
level.  This  whole  process  consists  of  one  iteration  step — in  general  the  process  may 
be  continued  for  an  arbitrary  number  of  iterations. 
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In  practice,  the  procedure  is  quite  a bit  more  delicate  than  the  above  paragraph 
would  indicate.  One  must  be  very  careful  as  to  how  and  what  information  is  trans- 
ferred to  particular  grid  points  from  one  adaptive  level  to  the  next,  so  in  the  algorithm 
which  follows,  particular  attention  will  be  paid  to  each  step  in  hopes  of  minimizing 
the  ambiguities  and  confusion. 

Assume  you  wish  to  solve  a nonlinear  partial  differential  equation  of  the  form 
of  Eq.  (4.16)  on  a grid  of  dimension  d which  consists  of  n grid  points  on  a side.  We 
demand  n is  of  the  form  n = -|-  3,  where  MG  is  an  integer  representing  the 

number  of  multigrid  levels.  Assume  the  form  of  the  operator  A^Q  is  known,  and 
the  source  is  known  as  well.  A natural  length  which  plays  an  important  role  in 
the  process  is  the  physical  length  of  the  smallest  adaptive  level,  which  we  denote  as 
LEN.  Another  important  length  in  the  problem  is  denoted  as  SCALE,  which  is  used 
to  ensure  that  the  grid  spacings  of  a larger  adaptive  level  are  exactly  twice  that  of 
the  smaller  adaptive  level. 

Once  a small  grid  resolution  has  been  determined  via  the  choice  of  the  parameter 
MG,  one  is  free  to  choose  the  number  of  adaptive  levels,  denoted  by  the  parameter 
ADAPT.  The  choices  of  this  integer  parameter  may  depend  on  computer  resources, 
desired  solution  accuracy,  or  computational  time  constraints.  Obviously,  the  larger 
the  value  of  ADAPT,  the  more  memory  required,  and  the  more  time  involved  to 
execute  the  program. 

It  is  of  vital  importance  to  be  mindful  of  the  physical  sizes  of  the  adaptive  grids. 
For  instance,  the  relationship  between  the  natural  scale  of  the  problem,  SCALE,  and 
the  physical  length  of  the  smallest  adaptive  level,  LEN,  is  given  by 

oMG  I 2 

LEN  = -^^SCALE.  (4.18) 
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Again,  the  relationship  in  Eq.  (4.18)  ensines  the  consistency  in  grid  spacings  from  one 
adaptive  level  to  the  next.  Once  the  smallest  grid  size  is  specihed,  then  each  larger 
adaptive  level  is  simply  twice  as  big  as  the  previous  adaptive  level.  For  instance, 
if  we  denote  the  physical  size  of  a particular  adaptive  level  as  dj,  then  do  = LEN, 
di  = 2 * LEN , d2  = 2 * di  = 4 * LEN,  etc....  This  trend  continues  until  we  reach 
the  largest  adaptive  level.  Ensuring  the  grid  spacings  between  the  second  largest  and 
the  largest  levels  are  consistent,  as  well  as  ensuring  we  can  perform  straight  nonlinear 
multigrid  on  this  largest  level,  the  physical  size  of  the  largest  level  is  denoted  as 
maxsize,  and  is  gi\-en  by 


maxsize  = 2'^^^^^  SC  ALE. 


(4.19) 


It  is  again  important  to  point  out  that  the  number  of  grid  points  on  all  adaptive 
levels  except  the  largest  adaptive  level  is  the  same,  and  is  given  by  n = + 3. 

The  number  of  grid  points  on  the  largest  adaptive  level  is  given  by  n = 2^^^  + 1. 
The  reason  for  the  difference  in  grid  points  numbers  will  become  apparent  when  we 
discuss  the  full  nonlinear  adaptive  multigrid  algorithm,  which  we  now  present. 

• Begin  by  relaxing  on  the  smallest  adaptive  level.  It  is  important  to  only  relax  on 
the  interior  n — 3 grid  points,  without  imposing  any  boundary  conditions  in  the 
relaxation  scheme.  Denote  the  relaxed  solution  as  u^,  and  the  initial  solution 
as  v^. 

• Calculate  the  residual  due  to  the  relaxed  solution  vA  from  the  standard  nonlinear 
residual  equation,  given  by  Eq.  (4.17),  everywhere  on  the  grid. 

• Restrict  the  relaxed  solution  which  exists  on  the  interior  n — 3 grid  points 
of  the  smallest  adaptive  level,  onto  the  interior  n/2  — 1 grid  points  of  the  next 
larger  adaptive  level,  and  denote  it  as  One  may  think  of  this  restricted 
“interior”  solution  as  information  which  will  eventually  allow  us  to  determine 
a correction  to  the  smallest  adaptive  level.  However,  any  solution  information 
which  exists  outside  of  this  “interior”  grid  region  should  be  thought  of  as  the 
best  possible  solution  for  that  exterior  region,  and  has  nothing  to  do  with  a 
correction  to  the  smaller  level. 
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• The  source  for  level  2h  must  now  be  calculated.  This  is  achieved  by  first  calcu- 
lating the  residual  on  level  2h  due  to  the  current  approximate  solution  and 
then  by  restricting  the  residual  into  the  interior  n/2  — 1 grid  points  of  level 
2h.  This  ties  into  the  concept  that  the  interior  region  is  related  to  the  correction 
to  be  added  to  the  smaller  adaptive  level,  where  as  the  exterior  region  deals  with 
the  best  possible  information  on  that  particular  level. 

• Relax  on  the  interior  n— 3 grid  points  of  level  2h,  without  imposing  any  boundary 
conditions  on  the  system. 

• Keeping  in  mind  the  interior  regions  of  larger  adaptive  levels  consist  of  informa- 
tion related  to  a correction  to  be  added  back  onto  smaller  adaptive  solutions, 
and  the  exterior  regions  are  the  best  possible  information  relating  to  the  solu- 
tion on  that  level,  repeat  the  hrst  hve  steps  until  the  small  grid  solutions  and 
residuals  are  eventually  restricted  to  the  interior  n/2  grid  points  of  the  largest 
adaptive  level.  Note  on  none  of  the  smaller  adaptive  levels  are  boundary  condi- 
tions imposed  on  the  solution.  It  is  only  on  the  largest  adaptive  level  (and  the 
associated  multigrid  levels)  are  boundary  conditions  imposed. 

• Perform  nonlinear  multigrid  on  the  largest  adaptive  level,  using  the  algorithm 

set  forth  in  §(4.2).  Again,  it  is  at  this  point  of  the  algorithm,  and  only  at  this 
point,  the  boundary  conditions  are  imposed  on  the  system.  On  completion  of 
a number  of  multigrid  V cycles  on  the  largest  adaptive  level,  we  are  left  with 
a solution  which  we  denote  as  . Care  must  now  be  taken  to  ensure 

the  interior  region  solution  and  the  exterior  region  solution  are  treated  in  the 
proper  fashion;  specihcally,  the  interior  n/2  solution  is  related  to  the  smaller 
grid  correction,  and  the  exterior  n/2  solution  is  the  best  possible  solution  for 
that  grid  level. 

• Calculate  the  error  = u^oapt  _ ^adapt  interior  n/2  — 1 grid 

points  on  the  largest  adaptive  level.  Interpolate  this  error  onto  the  interior 
n — 3 grid  points  of  the  smaller  adaptive  level.  This  interpolated  error,  denoted 
as  should  be  added  to  the  interior  solution  of  the  smaller  adaptive 

level  via  = u^dapt-i  _|_  ^adapt-i  rj-j^g  exterior  solution  of  , 

which  represents  the  best  solution  on  that  level,  should  replace  the  exterior  grid 
points  of  the  next  smaller  adaptive  level.  This  ensures  the  accurate  solution 
information  is  transferred  from  one  adaptive  level  to  the  next  smaller  level,  and 
it  also  acts  as  an  ’’anchor”  for  the  relaxation  scheme,  hxing  the  field  on  the 
boundary  of  smaller  adaptive  levels  to  a particular  value  determined  by  the 
boundary  conditions  on  the  largest  adaptive  level. 

• Continue  interpolating  the  larger  grid  errors  and  the  larger  grid  solutions  to 
smaller  and  smaller  grids.  A few  relaxation  sweeps  on  each  level  may  be  em- 
ployed, but  again  relaxation  only  occurs  on  the  interior  n — 3 grid  points,  and 
boundary  conditions  are  not  imposed  on  the  smaller  levels.  Recall  the  informa- 
tion at  grid  point  n—2  coincides  with  the  best  solution  at  that  particular  physical 
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distance — information  which  comes  directly  from  the  previous  larger  adaptive 
level.  It  is  the  solution  at  this  point  which  acts,  in  effect,  as  the  “boundary  con- 
dition” for  the  relaxation  of  the  interior  n — 3 grid  points,  and  assures  that  the 
solution  on  smaller  adaptive  levels  is  consistent  with  the  boundary  conditions 
imposed  at  the  largest  adaptive  level. 

• On  reaching  the  smallest  adaptive  level  the  residual  error,  a measure  of  how 
well  the  approximate  solution  is  solving  the  finite  difference  equation,  and  the 
truncation  error,  a measure  of  how  much  the  approximate  solution  is  changing 
from  one  iteration  to  the  next,  may  be  calculated.  If  the  errors  are  below 
certain  tolerances,  then  the  equation  of  interest  has  been  solved.  If  the  errors 
are  not  below  the  tolerances,  then  simply  return  to  the  first  step  and  reiterate 
the  algorithm. 

This  adaptive  nonlinear  multigrid  algorithm  is  employed  to  solve  the  Hamilto- 
nian constraint,  which  determines  the  conformal  factor  for  a binary  black  hole  system. 
We  will  briefly  discuss  some  numerical  tests  of  our  code  at  the  end  of  this  chapter, 
but  we  defer  discussion  of  numerical  results  of  our  variational  principle  until  the 
next  chapter.  Before  then,  there  are  several  other  numerical  issues  which  must  be 
addressed. 


4.4  Other  Numerical  Issues 


4.4.1  Reformulation  of  the  Nonlinear  Partial  Differential  Equation 


Recall  the  motivation  for  our  numerical  endeavor.  The  Hamiltonian  constraint 
of  the  Einstein  equations  is  a nonlinear  partial  differential  equation  describing  the 
conformal  factor  for  a binary  black  hole  system.  Recall  the  conformal  factor  'ip  is 
given  by 

^p  = - + U,  (4.20) 

Q 


where  l/o  is  given  by 


The  “Newtonian” 
tion  is  determined 


N 


1 ^ M(i) 

it  2|r-f(qr 


a 


(4.21) 


mass  of  the  puncture  is  denoted  as  M(q,  and  the  puncture  loca- 
by  the  vector  f(j).  With  this  form  for  the  conformal  factor,  the 
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Hamiltonian  constraint  becomes  an  equation  for  f/,  given  by 

^(3{l  + aU)-^  = Q,  (4.22) 

where  j3  is  related  to  the  conformal  extrinsic  curvature  of  the  geometrj^  via 

P = ^-a'K’^^Kab.  (4.23) 

Recall  the  extrinsic  curvature  must  satisfy  the  momentum  constraint  equations 

of  the  Einstein  equations.  Due  to  the  linearity  of  the  momentum  constraint,  the 

extrinsic  curvature  is  simply  a sum  of  the  conformal  extrinsic  curvatures  of  each 
puncture  individually: 

N 

= (4.24) 

Z=1 

where  depends  on  the  linear  momentum  P“  and  spin  angular  momentum  Sh 

of  the  punctures  in  the  following  way: 

Aps(i)  = + PV  - (s'*  - n«n‘)P'nJ 

+ ^ + e'*''5cndn“] , (4-25) 

where  in  normal  Cartesian  coordinates,  n“  = x“/r,  and  is  the 

normal  flat  space  metric  in  Cartesian  coordinates. 

Now  that  we  have  refreshed  our  memory  about  the  equation  we  wish  to  solve,  we 
realize  that  if  we  are  to  have  any  success  in  solving  this  nonlinear  equation  numerically, 
we  must  linearize  the  equation  in  a way  which  will  allow  our  numerical  scheme  to 
converge  to  the  solution  of  Eq.  (4.22).  First,  we  must  rewrite  the  equation  in  terms 
of  a new  variable  for  reasons  related  to  the  boundary  condition  we  wish  to  impose. 
Further  discussion  on  the  nature  of  the  boundary  condition,  known  as  the  Robin 
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condition,  is  deferred  until  §(4.4.2).  The  first  step  is  defining  the  following: 

U = l + u.  (4.26) 

With  this  change  of  variables,  Eq.  (4.22)  becomes 

V^n  + /il(l  + Q + cm)“’^  = 0.  (4.27) 

Now,  the  task  at  hand  is  to  linearize  Eq.  (4.27)  in  a way  which  preserves  its 
nonlinear  flavor.  One  way  to  achieve  this  is  to  imagine  the  quantity  u consists  of  some 
value  uq  plus  a perturbation  Su,  namely  u = uq  + Su.  Plugging  the  full  perturbed 
form  of  u into  Eq.  (4.27)  yields 

V (uq  + Su)  + (b(l  + Q:  + chuq  T qSu)  ^ = 0.  (4.28) 

In  anticipation  of  linearization,  we  begin  to  isolate  the  terms  involving  Su  in  the 
following  way: 

V^(uq  + Su)  + /S(l  + a + aug)  ^ fl  + ^ = 0.  (4.29) 

\ 1 + a + auo  J 

Now,  by  assuming  Su  1,  we  Taylor  expand  the  equation  to  yield  the  following: 

y2(uo  + Su)  +/?(!  + « + auo)~'  i 1 - ] = 0.  (4.30) 

V 1 + Q;  + auo  J 

Now,  we  add  and  subtract  terms  in  an  attempt  to  regroup  terms  of  the  form 
Uq  + Su,  i.e.,  make  the  substitution  Su  — > Su  + Ug  — ug.  In  doing  so,  and  keeping 
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only  the  Uq  + Su  terms  on  the  left  hand  side  of  the  equation,  we  have 


V^(mo  + — 7q/:1(1  + a + auo)  ^(uq  + Su) 


— ~/3(l  + Q;  + ouq) 


-7 


1 + 


7auo 


1 + 0;  + auo 


(4.31) 


Once  again  using  the  identification  of  n = Uq  + Su,  we  are  left  with  our  final  equation 
describing  u: 


— 7ap{l  + o + o«o) 

= -f3{l  + O + QUo)~^ 


7auo 

1 + 0 + otto 


(4.32) 


One  way  to  interpret  the  meaning  of  this  equation  is  to  view  tto  as  an  “old” 
value  of  the  field  u,  so  we  can  see  in  Eq.  (4.32)  how  the  field  at  a point  depends  on 
itself  in  a nonlinear  fashion. 

In  anticipation  of  hnite  differencing  the  partial  differential  equation,  we  take 
inspiration  from  the  nonlinear  residual  equation  A{u)  — A{v)  — r to  yield  the  final 
version  of  the  equation  in  which  we  will  apply  our  nonlinear  adaptive  nmltigrid  scheme: 


— 7ap{l  + a + Qtio) 


-8„ 


u 


= s + + P{1  + a + av) 


-7 


— /3(1  + Q + OcUq)  ^ 


1 + 


7au(] 


1 + a + auo 


(4.33) 


In  the  above  equation,  s denotes  the  source  on  a particular  level  and  v denotes  the 
previous  best  solution  on  a particular  level.  Equation  (4.33)  forms  the  basis  of  our 
relaxation  scheme,  as  well  as  the  method  in  which  we  calculate  residuals.  In  prac- 
tice, Eqn.  (4.33)  will  become  a finite-differenced  equation  for  u.  A subtle  detail  of 
Eqn.  (4.33)  is  the  interpretation  of  s.  Eor  instance,  on  the  smallest  adaptive  level  we 
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are  interested  in  a solution  to  Eqn.  (4.32);  this  requires  the  source  s and  the  field  v to 
be  initialized  to  zero  on  the  smallest  adaptive  level.  However,  on  subsequent  adaptive 
levels,  the  source  s is  roughly  the  restricted  residual  from  a previous  smaller  adaptive 
level,  and  the  field  v is  the  previous  best  solution  which  exists  on  that  level.  Details 
of  the  algorithm  may  be  found  in  the  Appendix. 

4.4.2  The  Robin  Boundary  condition 

As  has  been  mentioned  numerous  times  above,  imposing  realistic  boundary  con- 
ditions on  the  field  of  interest  is  of  vital  importance  if  one  wishes  to  accurately  model 
physically  realistic  systems. 

Asymptotic  flatness  dictates  the  field  U must  behave  as  f/  — 1 = 0(r~^)  for 
distances  far  from  the  punctures  [4].  This  translates  to  an  approximate  boundary 
condition,  known  as  the  Robin  condition,  which  may  be  constructed  by  demanding 
when  far  from  the  source,  the  field  U should  be  dominated  by  a monopole  term  [30]. 
This  allows  us  to  place  a constraint  on  the  radial  derivative  of  U in  the  following  way: 


m _ 1-U 
dr  r 


(4.34) 


Recall  in  §(4.4.1)  we  started  with  an  equation  describing  the  field  U,  but  then 
made  a variable  substitution  to  re-express  the  equation  in  terms  of  the  field  u,  which 
is  related  to  U via  U = 1+u.  The  reasoning  behind  this  change  of  variables  deals  with 
the  linearity  of  the  Robin  condition.  To  test  the  linearity  of  the  Robin  condition,  we 
use  two  test  functions,  denoted  as  Ui  and  U2-  Denoting  the  Robin  condition  operation 
as  RC{),  we  wish  to  see  if  RC{Ui)  -f  RCiU^)  = RC{Ui  + U2).  Plugging  Ui  and  U2 
into  Eq.  (4.34),  we  find 


dUi  dU2  _l-Ui  I-U2 


r 


r 


(4.35) 
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which  becomes 

dUi  dU2  _2-Ui-  U2 
dr  dr  r 

which  most  assuredly  is  not  the  same  as 

d{Ui  + U2)  1 — U\  — U2 

dr  r 


(4.36) 


(4.37) 


Because  of  this  nonlinear  nature  of  the  Robin  condition,  we  must  proceed  with 
caution.  Let  us  identify  U = 1 + u and  rewrite  the  Robin  condition  on  u to  read 


du  u 

dr  r 


(4.38) 


This  indicates  the  held  u is  dominated  by  a monopole  term,  and  goes  to  zero  far  from 
the  punctures,  which  preserves  the  asymptotic  behavior  of  the  held  U.  Let  us  re-test 
the  linearity  of  our  reformulated  Robin  condition,  Eq.  (4.38),  using  the  test  helds  Ui 
and  U2-  Writing  down  the  term  corresponding  to  RC{ui  -f  U2),  we  hnd 

d{ui  -f  U2)  ^ (ui  -b  U2) 

dr  r ' \ ■ ) 


Now,  comparing  to  RC{ui)  -t-  RC{u2)  we  hnd 


dui 

dr 


du2  Ml 

dr  r 


r 


which  in  turn  becomes 

^Mi  d^  _ (mi  -I- M2) 

dr  dr  r 


(4.40) 


Equation  (4.40)  is  the  same  as  Eq.  (4.39),  which  indicates  that  the  Robin  con- 
dition specihed  by  Eq.  (4.38)  is  indeed  a linear  operator.  Hence,  the  equation  we  wish 
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to  solve  is  Eq.  (4.33)  for  the  field  u subject  to  the  Robin  boundary  condition,  given 
by  Eq.  (4.38). 

As  a final  note  on  the  Robin  boundary  condition,  we  must  keep  in  mind  we 
will  employ  our  numerical  scheme  on  a cubic  lattice,  so  we  must  express  the  radial 
derivative  using  the  following  identification: 

d X d yd  z d 

— = n V a = — I — ^ — I — -7^- 

dr  r dx  r dy  r dz 

The  identity  stated  in  Eq.  (4.41),  along  with  some  minor  simplification,  yields  the 
hnal  form  of  the  Robin  condition  employed  in  the  numerical  algorithm: 


du  du 


dx 


du 

+ = -U. 

dz 


(4.42) 


4.4.3  The  Galerkin  Operator  and  Finite  Differencing 

Up  to  this  point,  we  have  avoided  discussing  the  issue  of  determining  the  form  of 
the  coarse  grid  operator  with  knowledge  of  the  fine  grid  operator  In  general, 
there  is  no  right  or  wrong  way  in  which  to  choose  the  coarse  grid  operator,  but  its 
determination  really  depends  on  the  type  of  problem  one  wishes  to  solve. 

Before  we  delve  into  the  discussion  of  coarse  grid  operators  and  methods  of  finite 
differencing,  let  us  first  introduce  some  handy  notation.  It  is  often  the  case  one  can 
uniquely  determine  the  form  of  an  operator  simply  by  its  stencil  [37] . The  stencil  of 
a particular  operator  is  simply  the  numerical  coefficients  associated  with  an  operator 
acting  on  a particular  grid  point.  The  notation  we  use  for  stencils  will  be  the  following 
(nonstandard)  convention: 


[0,1,2,3]  = (A,R,C,D), 


(4.43) 
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where  the  numbers  0,  1,  2,  and  3 in  the  square  brackets  denote  the  central  grid  point 
at  which  the  operator  is  acting,  grid  points  which  are  once  removed  from  the  central 
grid  point,  grid  points  twice  removed  from  the  central  grid  point,  and  grid  points  three 
times  removed  from  the  central  grid  point,  respectively.  The  numerical  coefficients  A, 
B,  C,  and  D in  the  parenthesis  correspond  to  the  above  mentioned  grid  points.  As 
an  example,  assume  we  want  to  write  the  stencil  for  a simple  identity  operator.  In 
this  case,  the  stencil  would  be  of  the  form: 

[0, 1,2,3]  = (1,0, 0,0),  (4.44) 

simply  because  this  identity  operator  only  depends  on  the  value  at  the  central  grid 
point.  Another  example  is  with  the  “traditional”  operator  in  three  dimensions, 
whose  stencil  is  given  by: 

[0,l,2,3]a  = (-6,l,0,0).  (4.45) 

W ith  this  handy  notation,  we  may  now  discuss  the  matter  of  determining  coarse  grid 
operators. 

As  mentioned  above,  the  method  in  which  one  determines  the  coarse  grid  opera- 
tor really  depends  on  the  problem  at  hand.  In  some  instances,  this  issue  may  not 
even  present  itself  as  a problem;  for  our  initial  investigations  into  multigrid  methods 
in  which  we  were  attempting  to  solve  Poisson’s  equation  in  three  dimensions,  we  gave 
little  thought  to  the  consequences  of  our  choice  of  coarse  grid  operator.  In  effect, 
we  used  the  stencil  given  by  Eq.  (4.45)  as  our  fine  and  coarse  grid  operator.  As  was 
mentioned  in  previous  sections,  we  had  great  success  in  solving  Poisson’s  equations 
with  this  operator,  but  situations  may  arise  (and  they  do!)  in  which  this  particular 
choice  of  coarse  grid  operator  does  not  lead  to  convergence.  A natural  question  arises: 
How  does  one  determine  the  “correct”  coarse  grid  operator? 
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The  answer  lies  in  what  is  known  as  the  Galerkin  condition  [38],  which  was 
briefly  mentioned  in  previous  sections.  Recalling  our  notation  for  restriction  (/^^)  and 
interpolation  {I^h)  operators,  tlie  Galerkin  condition  may  be  stated  mathematically 
as 

.4“  = /IMV*  , (4.46) 

where  once  again  A’’  is  the  fine  grid  operator,  and  is  the  resulting  coarse  grid 
operator.  The  motivation  for  Eq.  (4.46)  may  be  viewed  as  follows:  Imagine  we  have  a 
coarse  grid  function  which  is  a solution  to  the  problem  of  interest.  If  this  function 
is  indeed  a solution  on  the  coarse  grid,  then  we  would  hope  that  it  would  also  be  a 
solution  to  the  fine  grid  problem.  Another  way  of  thinking  of  this  is  the  following:  If 
we  interpolate  a coarse  grid  solution  to  the  fine  grid  and  then  calculate  the  fine  grid 
residual,  we  expect  that  fine  grid  residual  to  be  zero.  When  we  restrict  the  fine  grid 
residual  back  to  the  coarse  grid,  we  expect  the  residual  to  remain  unchanged  from 
its  fine  grid  value  (i.e.,  the  residual  should  remain  zero).  If  this  condition  is  satisfied, 
then  the  coarse  grid  operator  is  a Galerkin  operator. 

One  could  calculate  the  Galerkin  operator  “on  the  fly” — that  is,  write  computer 
code  to  generate  the  correct  Galerkin  stencil  for  every  coarse  grid  encountered  during 
the  multigrid  or  adaptive  multigrid  V cycles.  However,  we  believe  it  is  more  beneficial 
to  determine  a Galerkin  operator  which  has  exactly  the  same  form  on  all  levels,  from 
the  finest  to  the  coarsest.  This  allows  for  the  determination  of  a single  operator,  valid 
on  all  levels,  which  facilitates  writing  code,  testing,  and  debugging. 

Because  the  class  of  problems  we  are  interested  in  can  be  deemed  “Poisson-like” , 
we  endeavor  to  determine  a stencil  for  which  can  be  used  on  all  levels  and  satisfies 
the  Galerkin  condition,  Eq.  (4.46). 

The  starting  point  of  this  process  is  to  determine  all  of  the  linearly  independent 
stencils  for  the  operator  which  are  accurate  for  quadratic  functions.  This  is  done 
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by  constructing  a “test  cube”  of  three  grid  points  on  a side,  where  the  center  grid 
point  of  the  cube  is  the  grid  point  in  which  we  will  apply  our  various  operators. 
We  now  associate  an  unknown  coefficient  to  each  classification  of  grid  point,  much  as 
we  do  with  the  stencils  mentioned  above.  Specifically,  associate  the  coefficient  A with 
the  central  point,  the  coefficient  B to  those  grid  points  once  removed,  C for  those 
twice  removed,  and  D for  the  grid  points  which  are  three  times  removed  from  the 
central  grid  point. 

The  condition  that  we  wish  our  to  be  accurate  for  quadratic  functions  means 
that  it  must  yield  the  correct  results  for  functions  of  the  form  f{x)  = 1,  f{x)  = x, 
and  f{x)  = x"^.  This  means  when  we  apply  our  operator  to  our  “test  cube”,  we 
demand  the  expected  results.  For  instance,  if  our  test  cube  is  filled  with  a constant 
value  of  f{x)  = 1,  then  we  know  V^(l)  = 0 everywhere.  This  implies  the  application 
of  the  operator  to  our  cube  yields 

A + 6B  + 12C  + 8D  = 0.  (4.47) 

We  obviously  need  more  equations  to  solve  for  the  numerical  coefficients,  and 
this  is  achieved  by  applying  the  functions  f{x)  = x and  f{x)  = to  our  test  cube. 
The  results  of  those  operations  are 


-B  - 4C  - 4D  + B + 4C  + 4D  = 0, 


(4.48) 


which  is  simply  a tautology,  and 


2B  + 8C  + 8D  = 2.  (4.49) 

We  now  use  Eq.  (4.47)  and  Eq.  (4.49)  to  determine  the  coefficients.  Noting 
we  have  some  freedom  in  the  determination  of  our  coefficients,  we  hrst  set  B to  be 
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zero — our  “traditional”  stencil  already  depends  on  the  nearest  neighbors,  so  we 
would  like  to  rule  this  stencil  out  of  our  remaining  choices.  Once  this  is  done,  we  may 
choose  C to  be  zero,  which  yields  the  following  stencil: 

[0,1,2,3]6=  (^-2,0,0,^^  . (4.50) 

If  we  were  to  choose  D to  be  zero,  then  we  would  generate  a different  stencil  for  V^: 

[0,l,2,3]e=  (^-3, 0,^,0^  . (4.51) 

Armed  with  our  three  linearly  independent  stencils  for  V^,  recall  what  the  pur- 
pose of  this  exercise  is:  we  wish  to  determine  a stencil  for  which  has  the  same 
form  on  every  level,  and  also  satisfies  the  Galerkin  condition  given  by  Eq.  (4.46). 
Stated  another  way,  assume  we  write  our  as-yet  unknown  Galerkin  operator  as  a 
linear  combination  of  our  three  existing  stencils  for  V^: 

~ <2,(— 6, 1, 0, 0)  -|-  5 *^’4)  4' 

where  denotes  the  Galerkin  operator,  and  a,  b,  and  c are  unknown  numerical 
coefficients.  Our  job  is  to  determine  these  coefficients  such  that  this  Galerkin  operator 
has  exactly  the  same  stencil  on  every  level — fine  or  coarse. 

The  method  used  to  determine  the  unknown  coefficients  a,  b,  and  c relies  on 
the  dehnition  of  the  Galerkin  condition,  Eq.  (4.46),  along  with  some  computer  code 
written  in  G-|--f.  The  computer  code  simply  hlled  our  test  cube  of  27  grid  points 
with  zeros  everywhere,  except  at  the  center-most  grid  point.  At  this  central  point 
the  value  is  set  equal  to  unity.  Then,  the  code  simply  applies  the  Galerkin  condi- 
tion to  each  of  our  three  stencils  individually,  acting  on  the  test  cube.  For  instance, 
recall  our  “traditional”  stencil  for  is  simply  [0, 1,2,  3]^  = (-6, 1,0,0).  However, 
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when  our  test  cube  is  interpolated  to  a finer  level,  acted  on  by  our  traditional 
operator,  and  in  turn  restricted  back  to  the  coarse  level,  the  resulting  stencil  is 
[0, 1, 2,  Sjco  = (—54, 3,  I).  The  subscript  Ga  indicates  that  the  stencil  is  the  result 

of  the  Galerkin  condition,  and  is  associated  with  numerical  coefficient  a.  Likewise,  per- 
forming the  same  operations  on  the  b and  c stencils  yield  [0, 1,  2,  3]g6  = (-38,  -1,  |,  |) 
and  [0, 1, 2,  3]gc  = (-45,  |),  respectively. 

Likewise,  when  the  three  stencils  are  not  interpolated  and  restricted,  but  simply 
applied  to  the  test  cube,  the  results  are  [0, 1,2,3]^'*  = (-96,16,0,0),  [0, 1,2,3]^^^  = 
(—32,0,0,4)  and  [0, 1,2,3]^^  = (—48,0,4,0),  respectively.  The  superscript  2h  is 
meant  to  denote  the  operators  were  determined  on  the  coarse  grid. 

Because  we  are  interested  in  a Galerkin  operator  which  has  the  same  form  on 
every  level,  we  are  interested  in  stencils  which  obey  the  following  rule: 

a[0,l,2,3]f  + 5[0,l,2,3],''*  + c[0,l,2,3]f 

= a[0, 1,  2, 3]ca  + b[0, 1, 2, 3]cb  + c[0, 1, 2,  3]gc-  (4.53) 

It  is  important  to  note  this  relationship  must  hold  for  all  points  in  our  test  cube, 
so  we  must  write  down  an  equation  for  the  central  point,  one  for  the  grid  points  once 
removed,  one  for  those  twice  removed,  and  hnally  an  equation  for  the  grid  points  three 
times  removed.  These  equations,  after  some  simplihcation,  are: 

2b -c  = 14a,  (4.54) 

2b -c  = -26a,  (4.55) 

2b -c  = -2a,  (4.56) 

= ~la.  (4.57) 


26 -c 
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These  four  equations  indicate  a — 0 and  c = 2b.  We  may  determine  the  value  of  b by 
applying  our  Galerkin  operator  (with  a — 0 and  c = 2b)  to  the  function  f(x)  = in 
our  test  cube.  Starting  from  Eqn.  (4.52),  we  may  write 


= [/>v‘ + (x^) 


= [f.v|  + 26vg 


X 


-2,0,0,- j +2 


(x^) 


-3,0,-,0 


6b 


(4.58) 


We  know  that  V^x^  = 2,  so  we  hnd  that  b = ^.  Hence,  we  may  write  the  Galerkin 
operator  for  in  one  of  many  forms;  abstractly  it  may  be  written  as 

V^-^[0,l,2,3]b  + ^[0,l,2,3]c,  (4.59) 

or  with  the  coefficients  of  the  stencils  as 


or  in  a convenient  combined  form: 


(4.60) 


(4.61) 


Equation  (4.61)  is  the  main  result  of  this  section,  and  is  the  operator  we  employ 
in  our  nonlinear  adaptive  multigrid  algorithm. 
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4.4.4  The  ADM  Mass  and  Multipole  Moments 

It  has  long  been  known  [9, 41]  when  the  Hamiltonian  of  General  Relativity  is 
written  in  the  3+1  formalism,  certain  terms  may  be  re-expressed  as  a total  divergence, 
and  hence  become  a surface  integral.  Assuming  the  lapse  function  A = 1 at  spatial 
inhnity,  the  resulting  surface  integral  may  be  written  as 

IOttAadm  = / y/lf^l^\lik,j-lij,k)dSu  (4.62) 

J oo 

where  Aadm  is  known  as  the  ADM  mass  of  the  held  and  is  the  three  metric  of  the 
geometry.  The  indices  are  purely  spatial,  and  the  integral  is  performed  on  a surface 
located  at  r = oo  in  a coordinate  system  which  is  asymptotically  fiat.  If  one  were 
to  calculate  the  ADM  mass  for  the  Schwarzschild  metric,  one  would  arrive  at  the 
expected  result  of  Aadm  = rn,  where  m is  the  Schwarzschild  mass  parameter. 

For  situations  in  which  the  three  metric  is  conformally  hat,  namely  = 'ip^Qab 
where  gab  is  the  hat  three  metric,  it  is  relatively  straightforward  to  derive  an  expression 
for  the  ADM  mass  which  only  depends  on  the  conformal  factor  ^p.  To  do  this,  we 
simply  substitute  the  conformally  hat  metric  given  above  into  Eq.  (4.62).  This  results 
in 


16ttEadu=  f gki,j)'ip'^ + 4:ip''^{'ip,igjk-'ipjgki)]dSi,  (4.63) 


,4  , a„i.3i 


which  in  turn  simplihes  to 


167TAADM  = 4 / y/g{l  - 3)'ipjg'^dSi, 

J OC 


(4.64) 


which  we  may  write  in  its  hnal  form  as 


E'adm  = — ^ i>  V'0  • dS. 


OO 


(4.65) 
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One  may  note  Gauss’  law  may  be  used  to  re-express  Eq.  (4.65)  in  terms  of  a 
volume  integral,  specifically 


In  theory,  if  one  could  evaluate  the  integral  of  Eq.  (4.66)  over  a volume  bounded 
by  a surface  at  r = oo  then  one  could  arrive  at  the  ADM  mass  for  the  system. 

However,  in  the  world  of  numerical  modeling,  this  is  typically  not  feasible.  For 
starters,  integrating  over  all  of  space  is  not  possible  due  to  memory  limitations  on 
the  machine  running  the  code — hence,  it  is  necessary  that  we  only  integrate  over  a 
finite  volume  of  space.  Unfortunately,  even  this  presents  some  difficulties.  Imagine 
we  choose  to  integrate  a volume  which  consists  of  a cube  with  65  grid  points  on  a 
side.  This  translates  to  calculating  a sum  at  nearly  300,000  points,  which  can  be 
time  consuming,  to  say  the  least!  If  we  were  instead  to  do  a snrface  integral  over 
the  bounding  surface,  this  would  reduce  the  number  of  grid  points  involved  in  the 
calcnlation  to  approximately  13,000  points,  which  in  turn  would  significantly  reduce 
the  amount  of  time  spent  computing  the  ADM  mass. 

However,  if  we  wish  to  calcnlate  the  ADM  mass  via  the  surface  integral,  we 
discover  another  complication:  we  have  a stencil  describing  Vg,  the  Galerkin  operator 
associated  with  the  volume  integral,  but  we  have  no  knowledge  of  the  form  of  the 
stencil  describing  the  n • V operator  in  the  surface  integral.  It  would  appear  that  if  we 
are  to  succeed,  we  must  determine  the  proper  stencil  for  the  surface  integral,  where 
the  surface  of  integration  consists  of  the  faces  of  a cube. 

The  starting  point  for  the  determination  of  the  surface  integral  operator  is 
Eq.  (4.66),  the  equation  for  the  volume  integral.  One  can  imagine  the  volnme  of 
integration  to  be  a cube  with  a small  number  of  grid  points  on  each  side,  say  four. 
Then,  the  stencil  associated  with  the  Galerkin  operator  is  applied  to  each  point 


(4.66) 
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of  our  “test  cube”  in  hopes  of  seeing  how  the  volume  integral  manifests  itself  as  a 
surface  integral,  and  perhaps  more  importantly  to  determine  the  correct  form  of  the 
stencil  to  be  employed  for  the  resulting  surface  integral. 

With  a little  effort,  it  soon  becomes  apparent  that  all  of  the  contributions  from 
interior  grid  points  of  the  cube  cancel  out,  and  the  only  contribution  from  the  volume 
integral  is  due  to  grid  points  on  the  surface.  In  this  way,  the  volume  integral  shows 
us  directly  that,  after  applying  the  Galerkin  stencil  to  our  test  cube,  the  volume 
integral  given  by  Eq.  (4.66)  reduces  to  the  surface  integral  given  by  Eq.  (4.65).  The 
surface  integral,  as  mentioned  above,  allows  for  a relatively  speedy  and  simple  means 
of  calculating  the  energy  of  the  system.  Perhaps  more  importantly,  this  method  also 
generates  the  proper  stencil  associated  with  the  surface  integral. 

In  an  effort  to  extract  more  information  from  the  conformal  factor,  we  have  also 
determined  a method  to  calculate  the  multipole  moments  of  the  held  via  a convenient 
surface  integral.  Roughly  speaking,  one  can  calculate  the  multipole  moments  of  the 
held  by  integrating  the  spherical  harmonics  with  indices  f and  m with  over  all 
space.  However,  for  reasons  mentioned  above,  volume  integrals  on  a numerical  grid 
are  time  consuming  and  costly — it  would  be  to  our  beneht  to  determine  an  equi\’alent 
means  to  calculate  multipole  moments  via  surface  integrals. 

We  begin  by  dehning  the  function  via 

# = (4.67) 


where  r is  the  usual  radial  Cartesian  coordinate  and  are  the  complex  conjugates 
of  the  spherical  harmonics.  We  claim  the  proper  surface  integral  for  the  multipole 
moments  with  spherical  harmonic  indices  £ and  m is  of  the  form 


^im 


■\/T(2f  + 1) 


(4.68) 
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where  c?5“  denotes  a unit  of  surface  area  with  a unit  vector  normal  to  the  surface  of 
integration. 

Let  us  prove  our  assertion  that  Eci.  (4.68)  is  indeed  the  correct  formula  for  the 
multipole  moments  by  a simple  example.  Assume  the  conformal  factor  is  a linear 
combination  of  terms  proportional  to  the  spherical  harmonics. 

^ = 1 + XI 

t,m 

where  ipim  is  the  multipole  moment  associated  with  a particular  choice  of  i and  m. 
Note  the  assumed  radial  dependence  of  the  conformal  factor  is  determined  by  the 
asymptotic  behavior  ^ ^ 1 as  r oo.  After  some  simplifications,  we  evaluate 
to  be 


1 


0F(2£  + 1) 


d 


.r+1 


Y(m  I ^ \ 

Y ^em) 


r^dn.  (4.70) 


After  evaluating  the  derivatives  inside  the  integral,  we  find 


However,  after  usage  of  the  orthogonality  condition  of  the  spherical  harmonics,  we 
ultimately  find  the  value  of  the  multipole  moment  to  be 


— 


(4.72) 


which  is  exactly  the  result  we  would  expect.  Imagine  our  held  being  spherically 
symmetric,  and  corresponding  to  ip  = Ifa  = M/{2r).  For  this  case,  the  coefficient  of 
ip  would  be  ipim  = \/^M,  which  would  yield  the  lowest  order  multipole  moment  to  be 
4>oo  = M,  the  Newtonian  mass  of  the  system. 
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Now  that  our  generalized  form  of  the  multipole  moments  has  been  determined 
via  Eq.  (4.68),  we  may  set  about  the  task  of  determining  a way  in  which  to  evaluate 
the  integral  numerically.  By  application  of  Gauss’  law,  we  hnd  we  may  write  Eq.  (4.68) 
as  a volume  integral  given  by 


We  can  see  from  the  above  equation  how  we  justify  the  statement  that  the  multipole 
moments  may  be  determined  by  the  integral  of  the  spherical  harmonics  with 


integral  vanishes.  With  the  above  form  of  the  integral,  we  may  set  about  applying 
the  Galerkin  stencil  for  to  the  fields  •0  and  0f.  On  doing  this,  one  will  quickly  see 
that  all  of  the  interior  grid  points  will  not  contribute  to  the  overall  surface  integral — 
just  as  was  demonstrated  above  when  examining  the  ADM  mass.  It  is  a tedious  but 
straightforward  task  to  determine  the  correct  stencils  for  the  multipole  moments — one 
must  be  careful  of  the  faces,  edges,  and  corners  of  the  numerical  grid.  The  hnal  result 
may  be  seen  in  the  program  moment,  which  is  listed  in  its  entirety  in  the  Appendix. 

4.4.5  Numerical  Tests  of  the  Adaptive  Nonlinear  Code 

Eortunately,  we  know  of  two  cases  in  which  we  may  test  our  numerical  results 
to  analytic  expressions  for  the  ADM  mass.  The  hrst  case  is  for  a single  boosted  black 
hole;  the  second  is  for  two  black  holes,  separated  by  a “small”  distance  and  boosted 
towards  each  other.  Recall  the  expression  for  the  ADM  mass  of  the  system,  in  the 
form  of  a volume  integral  given  by  Eq.  (4.66): 


(4.73) 


0^  is  an  eigenfunction  of  the  Laplacian,  and  hence  the  second  term  in  the  above 


(4.74) 
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Noting  the  conformal  factor  is  given  hy  'll)  = ^ + 1 + m,  and  also  recalling  the 
equation  our  adaptive  nonlinear  code  is  solving,  given  by 


+ P(1  + a + au)  ^ = 0, 


(4.75) 


we  realize  that  we  may  re-write  the  expression  for  the  ADM  mass  as  follows; 


au)  (4-76) 


where  we  are  evaluating  the  expression  in  regular  Cartesian  coordinates.  Noting  the 
hrst  term  simply  yields  the  Newtonian  masses  of  each  individual  puncture,  we  may 
write  the  ADM  mass  in  the  following  form: 


-^'ADM  = A/i -f  M2 -h  — [ j3{l-\-a  + au)  ^d^x. 

47T  Jy 


(4.77) 


Let  us  examine  Eq.  (4.77)  for  the  situation  of  a single  boosted  black  hole,  where 
the  linear  momentum  of  the  hole  is  small.  In  this  situation,  we  assume  the  conformal 
factor  correction  is  small  (u  <C  1)  and  can  be  ignored  in  the  above  integral.  Hence, 
our  ADM  mass  for  a single  boosted  black  hole  becomes 


MDM 


M + — [ P{l  + a)  "^d^x. 

47T  Jy 


(4.78) 


It  is  relatively  straightforward  to  show  that  the  integrand  of  Eq.  (4.78)  is  simply 


/?(!  + a)-^  = 72P2^[1  + 2 cos2  0]  (l  + ~ 


(4.79) 


106 


When  integrated  using  spherical  coordinates,  we  hnd  the  ADM  mass  for  a single 
boosted  black  hole  is  given  by 


5 

£adm  = M+-  — 


(4.80) 


for  small  momentum. 

Tables  4.1,  4.2  and  4.3  show  our  numerical  results  for  a single  boosted  black 
hole,  evaluated  at  various  distances.  In  each  case,  the  momentum  of  the  hole  is  given 
a value  of  P = O.IOM.  Each  test  is  calculated  using  ten  adaptive  levels  with  a total 
of  eight  iterations,  and  the  physical  scale  of  the  problem  (given  by  the  parameter 
SCALE  in  the  code)  is  equal  to  4.0A/.  The  only  parameter  which  is  varied  from  one 
table  to  the  next  is  the  number  of  grid  points  on  the  side  of  the  smallest  adaptive  level 
in  an  octant  of  space,  numbering  n = 11,  n = 19,  and  n — 35  grid  points  respectively. 

As  can  be  seen  from  the  tables,  the  ADM  mass  increases  slightly  as  a function  of 
the  distance  at  which  this  quantity  is  evaluated — we  attribute  this  to  the  nonlinear 
nature  of  the  equation  the  code  is  solving.  The  most  interesting  point,  however,  is 
the  amount  our  numerical  results  agree  with  the  theoretical  prediction  for  the  mass 
correction.  In  Table  4.1  the  discrepancy  between  the  theoretical  and  numerical  values 
of  the  mass  correction  are  approximately  1.3%  when  measured  at  the  furthest  grid 
point.  Higher  resolutions  yield  even  more  impressive  results,  showing  deviations  from 
the  expected  theoretical  mass  correction  of  0.55%  and  0.42%,  respectively. 

One  may  inquire  why  the  ADM  mass  of  a single  boosted  black  hole  yields 
a coefficient  of  5/8  in  front  of  the  kinetic  energy  term,  rather  than  the  expected 
Newtonian  value  of  1/2.  It  would  appear  there  is  some  additional  energy  present 
in  the  geometry.  Figure  4.10  shows  the  radial  dependence  of  the  normalized  energy 
density  of  the  field  versus  the  normalized  radial  distance.  If  one  were  to  integrate 
this  curve  from  r = 0 to  r = oo,  the  result  would  be  5/8.  The  hgure  indicates  it  is 
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Table  4.1;  Code  test  for  a single  boosted  black  hole:  n = 11  grid  points  on  a side, 
ADAPT  = 10  adaptive  levels,  theoretical  ADM  mass  A^adm  = 1.00625M 


Distance 

ADM  Alass 

7 

1.004478360538468 

14 

1.005246092534632 

28 

1.005687987991896 

56 

1.005925410956947 

112 

1.006048517746048 

224 

1.006111206656130 

448 

1.006142839716399 

896 

1.006158728997733 

1792 

1.006166691900793 

3584 

1.006170677928971 
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Table  4.2;  Code  test  for  a single  boosted  black  hole:  n = 19  grid  points  on  a side, 
ADAPT  = 10  adaptive  levels,  theoretical  ADM  mass  T'adm  = 1.00625M 


Distance 

ADM  Mass 

7 

1.004456160293023 

14 

1.005250846181358 

28 

1.005710799727296 

56 

1.005958644512548 

112 

1.006087346697324 

224 

1.006152934348016 

448 

1.006186042680404 

896 

1.006202676155737 

1792 

1.006211012805630 

3584 

1.006215186117088 
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Table  4.3:  Code  test  lor  a single  boosted  black  hole:  n = 35  grid  points  on  a side, 
ADAPT  = 10  adaptive  levels,  theoretical  ADM  mass  ^Iadm  = 1.00625M 


Distance 

ADM  Mass 

7 

1.004433482500703 

14 

1.005240400855877 

28 

1.005708711698705 

56 

1.005961421538742 

112 

1.006092746446622 

224 

1.006159695535913 

448 

1.006193497436792 

896 

1.006210480949185 

1792 

1.006218993438650 

3584 

1.006223254876639 

no 


Figure  4.10:  The  radial  dependence  of  the  normalized  energy  density  p[r) / [P / 
versus  the  normalized  distance  r/M. 

difficult  to  localize  the  additional  energy  content  of  the  geometry,  which  implies  the 
additional  energy  is  inherent  to  the  geometry.  It  is  not  clear  if  this  additional  energy 
is  due  to  the  simplification  introduced  by  a trace-free  conformal  extrinsic  curvature, 
or  if  it  is  due  to  the  conformal  flatness  conjecture.  Additionally,  it  is  not  clear  how 
this  additional  energy  would  effect  an  evolution  of  the  geometry  via  the  dynamical 
Einstein  equations.  We  note  the  additional  energy  content  will  place  a limitation  on 
our  ability  to  model  astrophysically  realistic  binary  black  hole  systems.  The  geometry 
will  nonetheless  provide  a proving  ground  for  the  variational  principle  we  employ. 

We  can  test  our  numerical  results  against  another  situation — two  black  holes 
separated  by  a small  distance,  and  boosted  towards  each  other  with  relatively  small 
momenta.  The  method  of  deriving  an  analytic  result  for  the  ADM  mass  is  similar  to 
that  of  above,  but  requires  a little  more  effort.  For  this  case,  we  used  Mathematica  to 
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determine  the  torm  of  the  integrand  for  Eq.  (4.77),  which  is  ciuite  a bit  more  compli- 
cated than  the  single  boosted  black  hole  scenario.  Once  the  integrand  is  determined, 
it  is  necessary  to  expand  the  integrand  in  powers  of  jj,  where  L is  the  coordinate  po- 
sition of  each  hole  along  the  x axis.  This  limits  our  analysis  to  cases  with  ^ 1.  but 

still  provides  an  adequate  test  bed  for  the  code.  When  the  expansion  of  the  integrand 
is  completed,  we  find  the  ADM  mass  for  this  situation  is  given  by 


where  M once  again  is  the  Newtonian  mass  of  the  individual  punctures. 

Tables  4.4,  4.5  and  4.6  show  the  results  for  two  black  holes  located  at  coordinate 
distances  +0.1  A/  and  — 0.1A7  along  the  x axis.  The  holes  are  boosted  towards  each 
other  with  a linear  momentum  of  P = l.OAf.  The  physical  scale  of  the  grids  are  the 
same  as  for  the  single  black  hole  above,  and  again,  each  test  was  run  w'itli  ten  adaptive 
levels  and  eight  complete  iterations.  The  only  parameter  varied  was  once  again  the 
number  of  grid  points.  As  shown  in  Table  4.4,  the  discrepancy  between  the  theoretical 
and  numerical  mass  correction  is  5.2%.  Going  to  higher  grid  densities  results  in  mass 
correction  discrepancies  of  1.4%  and  0.6%,  respectively. 

As  these  two  test  cases  would  indicate,  we  can  be  confident  that  our  code  is 
correctly  solving  the  nonlinear  partial  differential  equation  for  the  correction  to  the 
conformal  factor,  given  by  Eq.  (4.75).  We  may  now  proceed  to  apply  the  code  towards 
solving  the  Hamiltonian  constraint  for  binary  black  holes  in  quasi-equilibrium  circular 


(4.81) 


orbits. 
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Table  4.4:  Code  test  for  two  boosted  black  holes:  n = W grid  points  on  a side, 
ADAPT  = 10  adaptive  levels,  theoretical  ADM  mass  Eadm  = 2.0021314285A/ 


Distance 

ADM  Mass 

7 

2.002204960144522 

14 

2.002235779237632 

28 

2.002240987490862 

56 

2.002241749371064 

112 

2.002241852453771 

224 

2.002241865652823 

448 

2.002241867039063 

896 

2.002241866886472 

1792 

2.002241866678383 

3584 

2.002241866670044 
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Table  4.5:  Code  test  for  two  boosted  black  holes:  n = 19  grid  points  on  a side, 
ADAPT  = 10  adaptive  levels,  theoretical  ADM  mass  Eagu  = 2.0021314285A/ 


Distance 

ADM  Mass 

7 

2.00212124423002 

14 

2.00215537225156 

28 

2.00216120866229 

56 

2.00216206802759 

112 

2.0021621847792 

224 

2.00216219991037 

448 

2.00216220173672 

896 

2.00216220191223 

1792 

2.00216220194748 

3584 

2.00216220193432 
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Table  4.6:  Code  test  for  two  boosted  black  holes:  n = 35  grid  points  on  a side, 
ADAPT  = 10  adaptive  levels,  theoretical  ADM  mass  Eadu  = 2.0021314285M 


Distance 

ADM  Mass 

7 

2.00210214462189 

14 

2.00213793576375 

28 

2.00214409210936 

56 

2.00214500147877 

112 

2.00214512527282 

224 

2.00214514140509 

448 

2.00214514345247 

896 

2.00214514371485 

1792 

2.00214514374563 

3584 

2.00214514374897 

CHAPTER  5 

numerical  results 

We  present  the  numerical  results  from  our  adaptive  multigrid  computer  code 
used  to  model  binary  black  holes,  as  described  in  the  previous  chapter.  The  computer 
code  employed  may  be  found  in  its  entirety  in  the  Appendix. 

The  procedure  for  generating  a sequence  of  quasi-stationary  circular  orbits  which 
satisfy  the  constraint  equations  is,  in  theory,  quite  simple.  The  variational  principle 
even  guides  us  as  to  how  to  approach  the  problem:  simply  write  some  computer  code 
which  solves  the  Hamiltonian  constraint  for  some  fixed  value  of  angular  momentum 
J and  bare  masses  fn.  Vary  the  separation  distance  of  the  black  holes  until  you  hnd  a 
minimum  in  the  value  of  the  ADM  mass.  A minimum  in  the  ADM  mass  ensures  the 
sytem  under  study  is  a solution  to  the  quasi-equilibrium  Einstein  equations  for  those 
particular  values  of  J and  fn.  The  separation  distance  associated  with  this  minimum 
corresponds  to  the  coordinate  separation  distance  of  a quasi-equilibrium  circular  orbit 
for  the  system.  The  variational  principle  also  indicates  how  to  determine  the  angular 
frequency  D for  this  circular  orbit;  simply  determine  the  minimum  in  the  ADM  mass 
for  a slightly  different  value  of  the  angular  momentum.  One  can  then  proceed  in 
a similar  fashion  to  generate  a sequence  of  “effective  potential”  curves,  where  each 
minimum  in  the  curve  corresponds  to  a quasi-equilibrium  circular  orbit. 

The  resulting  sequence  of  circular  orbits  can  be  viewed  in  the  following  fashion: 
a realistic  binary  system  will  radiate  gravitational  waves,  causing  their  orbital  sepa- 
ration distance  to  decrease  slowly.  Because  of  the  circularizing  nature  on  the  orbits  of 
gravitational  radiation  [10],  the  sequence  of  circular  qiiasi-equilibrium  orbits  is  a rea- 
sonable estimate  to  reality.  The  binary  system  will  then  “evolve”  along  the  sequence, 
until  the  binary  system  reaches  the  innermost  stable  circular  orbit  (ISCO).  It  is  at  the 
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ISCO  that  we  can  no  longer  employ  the  variational  principle  to  generate  information 
about  circular  orbits,  and  we  can  not  determine  the  dynamics  of  the  hnal  plunge.  De- 
spite this  shortcoming,  the  variational  principle,  and  the  sequence  it  generates,  yields 
valuable  information  about  the  evolution  of  the  system  up  to  and  including  the  ISCO. 
In  particular,  the  orbital  frequency  at  the  ISCO  is  of  vital  interest  to  investigators  in 
the  held  of  gravitational  wave  detection. 

One  problem  that  arises  is  the  question  of  mass.  Specihcally,  what  exactly  does 
one  mean  when  he  speaks  of  the  mass  of  a black  hole'.'*  There  is  no  general  consensus 
on  the  answer  to  this  question  [29,33,42].  Recall  from  §(3)  that  we  encountered  two 
types  of  mass  when  describing  the  punctures  of  Brandt  and  Brugmann:  the  “bare” 
mass  m and  the  “Newtonian”  mass  M,  which  are  related  via 

rtii  = Mi  ^ + Ui  + ) (5-1) 

where  rfii  is  the  bare  mass  of  the  hole.  Mi  is  the  corresponding  Newtonian  mass, 
Uj  is  the  value  of  the  correction  to  the  conformal  factor  at  the  i**  hole,  and  D is  the 
coordinate  separation  distance  between  the  holes. 

However,  these  two  masses  are  not  the  only  two  used  to  describe  black  holes. 
In  Baumgarte’s  formalism  [33],  he  chooses  to  use  the  mass  associated  with  the  area 
of  the  apparent  horizon,  described  by  Christodoulou’s  formula,  to  specify  the  system. 

A different  measure  of  the  mass  is  the  rest  mass,  which  is  given  by  the  familiar 
special  relativistic  expression 


E, 


rest  — 


■^ADM 


P\ 


(5.2) 


where  E'adm  is  the  ADM  mass  of  an  isolated  black  hole  with  linear  momentum  P.  We 
have  opted  to  use  the  rest  mass  when  comparing  our  numerical  results  to  the  expected 
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post-Newtonian  results,  simply  because  it  is  a measure  of  an  individual  hole’s  energy 
without  any  contribution  from  the  other  hole. 

We  begin  our  numerical  analysis  by  using  a program  named  VP,  which  is  used 
to  generate  an  “effective  potential”  curve  for  some  fixed  value  of  angular  momentum  J 
and  hxed  bare  mass  m..  Let  us  describe,  in  detail,  what  the  code  does  for  a particular 
value  of  angular  momentum. 

For  a fixed  value  of  J,  the  separation  distance  D is  initialized  to  some  value. 
From  these  two  quantities,  the  linear  momentum  P of  each  hole  is  determined  via 
J = PD.  To  ensure  a solution  to  the  quasi-equilibrium  Einstein  equations,  recall 
that  the  variational  principle  dictates  that  we  must  hold  the  bare  mass  m fixed  as 
we  generate  the  sequence;  the  Newtonian  mass  M may  vary  through  the  sequence. 
Therefore,  for  a fixed  value  of  the  bare  mass,  we  initialize  the  Newtonian  mass  to  an 
arbitrary  value.  We  then  solve  the  Hamiltonian  constraint  for  the  correction  to  the 
conformal  factor  u.  We  then  calculate  the  new  value  of  the  Newtonian  mass,  which 
follows  directly  from  Eq.  (5.1): 

M = -D{\  + u)+  ^D^{l  + uy  + 2Dm.  (5.3) 

Using  this  new  value  of  the  Newtonian  mass,  we  re-solve  the  Hamiltonian  constraint. 
The  old  value  of  the  conformal  factor  correction  at  the  location  of  the  hole  is  compared 
to  the  new  value,  and  if  the  difference  is  below  some  tolerance  level  we  conclude 
that  we  have  reached  convergence  for  that  particular  separation  distance  D.  Once 
we  have  reached  convergence,  we  calculate  the  ADM  mass  for  the  system  and  save 
the  information  to  a file.  Then,  still  using  the  unchanged  values  for  the  angular 
momentum  J and  the  bare  mass  m,  we  decrement  the  separation  distance  D and 
repeat  the  process  to  determine  a new  value  of  the  ADM  mass  for  that  separation 
distance.  This  process  continues  until  a single  “effective  potential”  curve  has  been 
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produced  for  a fixed  value  of  J and  m.  Once  this  has  been  done,  we  decrement  the 
value  of  the  angular  momentum  J and  generate  a new  curve. 

Once  a series  of  curves  have  been  generated,  each  curve  corresponding  to  a 
different  value  of  angular  momentum,  then  we  must  determine  the  location  of  the 
local  minima  of  each  curve.  The  location  of  these  minima  correspond  to  a circular 
orbit  for  some  value  of  angular  momenta.  This  is  achieved  using  the  program  mm. 
ft  is  a minimization  routine  taken  from  Numerical  Recipes  which  employs  Brent’s 
method  [40].  Once  the  minima  of  a curve  has  been  determined,  the  information  is 
saved  to  a file. 

Figure  5.1  is  one  example  of  the  curves  generated  by  this  procedure,  with  the 
location  of  the  circular  orbits  denoted  by  the  dashed  curve,  with  diamonds  repre- 
senting the  locations  of  the  circular  orbits  for  particular  values  of  J.  This  particular 
figure  was  generated  for  a grid  with  n = 11  grid  points  on  a side,  and  ten  adaptive 
levels.  The  vertical  axis  is  the  ADM  mass  of  the  system,  and  the  horizontal  axis  is  the 
coordinate  separation  distance  between  the  two  holes.  The  lowest  curve  corresponds 
to  a value  of  the  angular  momentum  J = 2.93m^,  and  the  topmost  curve  corresponds 
to  a value  of  J = 3.00m^.  The  sequence  of  circular  orbits  terminates  at  a separation 
distance  of  D = 5.8395m,  which  corresponds  to  a value  of  J = 2.936m^. 

Likewise,  Figure  5.2  is  a similar  figure  of  curves  for  values  of  angular  momentum 
ranging  from  J = 2.90m^  to  J = 3.80m^.  In  this  figure,  the  the  line  representing  the 
sequence  of  circular  orbits  terminates  at  a value  of  J = 3.00m^  only  for  illustrative 
purposes — it  is  not  the  location  of  the  innermost  stable  circular  orbit. 

Once  we  have  determined  the  location  of  the  circular  orbits  for  various  values 
of  angular  momentum,  then  we  may  apply  the  variational  principle  to  determine  the 
angular  frequency  il.  This  is  achieved  by  once  again  using  the  program  min.  For 
example,  imagine  we  are  interested  in  determining  the  value  of  D for  the  circular 
orbit  associated  with  J = 3.00m^.  We  simply  increase  the  angular  momentum  in 
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Figure  5.1:  ADM  mass  curves  and  the  corresponding  sequence  of  circular  orbits  for 
n = 11  grid  points  on  a side  and  ADAPT  — 10  adaptive  levels.  The  values  of 
J range  from  2.93m^  to  3.00m^.  The  innermost  stable  circular  orbit  terminates  at 
J = 2.936m^. 
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Figure  5.2:  ADM  mass  curves  and  the  corresponding  sequence  of  circular  orbits  for 
n = 11  grid  points  on  a side  and  ADAPT  = 10  adaptive  levels.  The  values  of  J range 
from  2.90m^  to  3.80m^.  The  sequence  of  circular  orbits  terminates  at  J = 3.00m^ 
only  for  illustrative  purposes. 
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mm  to  a value  of  J = S.OOlm^,  and  allow  the  code  to  search  for  a minimum  value 


in  the  ADM  mass.  Once  the  program  has  converged  to  a solution  and  generated  the 
minimum  ADM  mass  associated  with  this  new  value  of  the  angular  momentum,  then 
the  angular  frequency  may  be  determined  via 


For  this  particular  case  of  interest,  we  find  that  D = O.OdOTm-h  In  this  very  fashion, 
the  angular  frequency  can  be  determined  for  all  circular  orbits,  up  to  and  including 
the  innermost  stable  circular  orbit. 

As  was  mentioned  above,  we  choose  to  normalize  all  of  our  quantities  by  means 
of  the  rest  mass  of  a single  hole,  given  by  Eq.  (5.2).  This  is  achieved  by  calculating 
the  ADM  mass  of  a single,  isolated,  boosted  black  hole  with  linear  momentum  P. 
This  value  of  the  linear  momentum  is  exactly  the  same  linear  momentum  each  hole 
in  the  binary  system  has  for  angidar  momentum  J and  separation  distance  D.  We 
believe  this  is  a reasonable  way  to  calculate  the  mass  of  a hole,  as  it  is  the  mass  due 
solely  to  the  individual  hole  and  its  motion,  and  not  due  to  the  interaction  with  the 
other  hole.  Two  quantities  which  we  use  to  normalize  the  orbital  parameters  are  the 
total  rest  mass  of  the  system  m,  defined  as 


(5.4) 


171  — 2£/rest) 


(5.5) 


and  the  reduced  mass  of  the  system  /r,  dehned  as 


h — 2 ■^rest  • 


(5.6) 


It  is  important  to  note  the  above  two  dehnitions  are  valid  only  for  equal  mass  black 
holes. 
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5.1  Numerical  Results  of  the  Variational  Principle 

We  now  present  the  data  for  three  different  resolutions  in  tabular  form,  and 
then  discuss  the  agreement  between  the  data  and  post- Newtonian  expectations. 

In  Table  5.1,  the  grid  resolution  was  set  to  n = 11,  with  a total  of  ten  adaptive 
levels.  The  variable  J denotes  the  angular  momentum  of  the  system,  and  is  mea- 
sured in  units  of  m^,  where  m is  the  fixed  bare  mass  of  the  holes.  For  all  numerical 
simulations,  we  fix  the  value  of  m to  be  equal  to  1.0.  The  variable  P is  the  linear 
momentum  of  each  individual  hole,  and  is  measured  in  units  of  m.  The  variable  D is 
the  coordinate  separation  distance  between  the  holes,  and  is  also  measured  in  units 
of  m.  The  Newtonian  mass  of  the  holes  is  denoted  by  M,  is  measured  in  units  of 
m,  and  is  defined  via  Eq.  (5.3).  The  ADM  mass  of  the  binary  system  is  denoted  as 
■E'adm,  and  is  measured  in  units  of  m,  and  the  angular  frequency  of  the  binary  system 
is  denoted  as  and  is  measured  in  units  of 

We  also  tabulate  the  data  used  to  determine  the  rest  mass  Erest  of  each  individual 
hole  for  a particular  value  of  angular  momentum  J in  Table  5.2.  The  grid  resolution 
and  adaptive  level  number  are  the  same  as  Table  5.1.  However,  in  Table  5.2,  E'adm  is 
the  ADM  mass  of  the  single  boosted  hole  with  linear  momentum  P,  and  Prest  is  the 
resulting  rest  mass,  derived  from  Eq.  (5.2).  Also  note  this  data  was  calcnlated  with 
only  six  adaptive  levels.  We  found,  experimentally,  the  ADM  mass  changed  by  only 
one  part  in  10®  when  the  number  of  adaptive  levels  was  reduced  from  ten  to  six.  This 
reduced  the  execution  time  of  the  code  considerably. 

In  anticipation  of  comparing  our  results  to  post-Newtonian  predictions,  we  cal- 
culate the  binding  energy  of  the  binary  system  via 


-2P, 


rest- 


(5.7) 
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Table  5.1:  Orbital  parameters  for  a binary  black  hole  system:  n = 11  grid  points  on 
a side,  ADAPT  = 10  adaptive  levels. 


J D 


4.100 

24.0155 

4.000 

22.8444 

3.900 

21.6597 

3.800 

20.4555 

3.700 

19.2296 

3.600 

17.9758 

3.500 

16.6858 

3.400 

15.3473 

3.300 

13.9428 

3.200 

12.4346 

3.100 

10.7475 

3.000 

8.6405 

2.980 

8.0898 

2.960 

7.4199 

2.936 

5.8395 

P M 


0.1707 

0.9791 

0.1751 

0.9780 

0.1801 

0.9768 

0.1858 

0.9754 

0.1924 

0.9738 

0.2003 

0.9719 

0.2098 

0.9697 

0.2215 

0.9670 

0.2367 

0.9635 

0.2573 

0.9589 

0.2884 

0.9522 

0.3472 

0.9398 

0.3684 

0.9355 

0.3989 

0.9293 

0.5028 

0.9087 

Eabm 


1.9775 

0.0085 

1.9766 

0.0092 

1.9756 

0.0101 

1.9746 

0.0111 

1.9734 

0.0123 

1.9721 

0.0137 

1.9707 

0.0154 

1.9690 

0.0176 

1.9671 

0.0204 

1.9649 

0.0243 

1.9622 

0.0300 

1.9587 

0.0407 

1.9579 

0.0444 

1.9570 

0.0497 

1.9556 

0.0666 
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Table  5.2:  Single  boosted  black  hole  for  the  determination  of  the  rest  mass  Erest- 
n = 11  grid  points  on  a side,  ADAPT  = 6 adaptive  levels. 


J 

P 

Eadm 

Erest 

4.100 

0.1707 

1.0144 

0.9999509 

4.000 

0.1751 

1.0152 

0.9999501 

3.900 

0.1801 

1.0160 

0.9999495 

3.800 

0.1858 

1.0171 

0.9999490 

3.700 

0.1924 

1.0183 

0.9999489 

3.600 

0.2003 

1.0198 

0.9999494 

3.500 

0.2098 

1.0217 

0.9999510 

3.400 

0.2215 

1.0242 

0.9999548 

3.300 

0.2367 

1.0276 

0.9999632 

3.200 

0.2573 

1.0326 

0.9999819 

3.100 

0.2884 

1.0408 

1.0000297 

3.000 

0.3472 

1.0588 

1.0002063 

2.980 

0.3684 

1.0660 

1.0003051 

2.960 

0.3989 

1.0771 

1.0004887 

2.936 

0.5028 

1.1207 

1.0015630 
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Table  5.3:  Normalized  orbital  parameters  for  a binary  black  hole  system:  n = 11  grid 
points  on  a side,  ADAPT  — 10  adaptive  levels. 


J/(mp) 

mil 

Eh  hi 

D/m 

4.100 

0.0170 

-0.04492 

12.008 

4.000 

0.0185 

-0.04659 

11.423 

3.900 

0.0202 

-0.04852 

10.830 

3.800 

0.0222 

-0.05063 

10.228 

3.700 

0.0246 

-0.05296 

9.615 

3.600 

0.0274 

-0.05556 

8.988 

3.500 

0.0309 

-0.05847 

8.343 

3.400 

0.0352 

-0.06178 

7.674 

3.300 

0.0408 

-0.06560 

6.972 

3.200 

0.0485 

-0.07012 

6.217 

3.100 

0.0601 

-0.07570 

5.374 

2.999 

0.0814 

-0.08333 

4.319 

2.978 

0.0889 

-0.08541 

4.044 

2.957 

0.0995 

-0.08800 

3.708 

2.927 

0.1334 

-0.09485 

2.915 

We  also  normalize  the  binding  energy,  the  angular  momentum,  the  separation  distance 
and  the  orbital  angular  frequency  with  m and  /.i  as  dehned  by  Eqs.  (5.5)  and  (5.6), 
respectively.  This  information  is  listed  in  Table  5.3. 

We  also  list  the  corresponding  data  for  a higher  resolution,  where  n — 19,  in 
Tables  5.4,  5.5,  and  5.6. 

Finally,  we  list  the  data  for  n = 35  in  Tables  5.7,  5.8,  and  5.9.  For  this  data,  we 
used  six  adaptive  levels  which,  as  mentioned  above,  yields  the  same  energy  content 
as  ten  adaptive  levels. 
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Table  5.4:  Orbital  parameters  for  a binary  black  hole  system:  n = 19  grid  points  on 
a side,  ADAPT  = 10  adaptive  levels. 


J D P M Eadm. 


4.100 

27.3284 

4.000 

25.5797 

3.900 

23.8083 

3.800 

22.0133 

3.700 

20.1909 

3.600 

18.3405 

3.500 

16.4578 

3.400 

14.5414 

3.300 

12.5857 

3.200 

10.5755 

3.100 

8.4456 

3.000 

5.8004 

2.977 

4.6086 

2.976 

4.4902 

2.975 

4.3060 

0.1500 

0.9810 

0.1564 

0.9797 

0.1638 

0.9781 

0.1726 

0.9762 

0.1833 

0.9740 

0.1963 

0.9712 

0.2127 

0.9677 

0.2338 

0.9632 

0.2622 

0.9571 

0.3026 

0.9484 

0.3671 

0.9346 

0.5172 

0.9036 

0.6460 

0.8784 

0.6628 

0.8753 

0.6909 

0.8700 

1.9818 

0.0083 

1.9810 

0.0093 

1.9800 

0.0104 

1.9789 

0.0117 

1.9776 

0.0133 

1.9762 

0.0154 

1.9745 

0.0180 

1.9726 

0.0215 

1.9702 

0.0262 

1.9673 

0.0330 

1.9635 

0.0437 

1.9581 

0.0675 

1.9564 

0.0860 

1.9563 

0.0882 

1.9563 

0.0920 
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Table  5.5:  Single  boosted  black  hole  for  the  determination  of  the  rest  mass  Brest- 
n = 19  grid  points  on  a side,  ADAPT  = 6 adaptive  levels. 


J 

P 

Eadm 

Brest 

4.100 

0.1500 

1.0111 

0.9998793 

4.000 

0.1564 

1.0120 

0.9998707 

3.900 

0.1638 

1.0132 

0.9998607 

3.800 

0.1726 

1.0146 

0.9998489 

3.700 

0.1833 

1.0165 

0.9998348 

3.600 

0.1963 

1.0189 

0.9998181 

3.500 

0.2127 

1.0222 

0.9997985 

3.400 

0.2338 

1.0268 

0.9997769 

3.300 

0.2622 

1.0336 

0.9997573 

3.200 

0.3026 

1.0445 

0.9997574 

3.100 

0.3671 

1.0651 

0.9998619 

3.000 

0.5172 

1.1267 

1.0009726 

2.977 

0.6460 

1.1934 

1.0034880 

2.976 

0.6628 

1.2030 

1.0039573 

2.975 

0.6909 

1.2194 

1.0048253 
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Table  5.6:  Normalized  orbital  parameters  for  a binary  black  hole  system:  n = 19  grid 
points  on  a side,  ADAPT  = 10  adaptive  levels. 


J/(m/r) 

mil 

Eh  hi 

D/m 

4.101 

0.0167 

-0.03583 

13.6658 

4.001 

0.0185 

-0.03755 

12.7915 

3.901 

0.0207 

-0.03947 

11.9058 

3.801 

0.0234 

-0.04162 

11.0083 

3.701 

0.0267 

-0.04406 

10.0971 

3.601 

0.0308 

-0.04686 

9.1719 

3.501 

0.0360 

-0.05011 

8.2306 

3.402 

0.0430 

-0.05396 

7.2723 

3.302 

0.0524 

-0.05863 

6.2944 

3.202 

0.0659 

-0.06450 

5.2890 

3.101 

0.0875 

-0.07249 

4.2234 

2.994 

0.1352 

-0.08751 

2.8974 

2.956 

0.1726 

-0.10075 

2.2963 

2.953 

0.1772 

-0.10274 

2.2363 

2.946 

0.1848 

-0.10629 

2.1427 
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Table  5.7;  Orbital  parameters  for  a binary  black  hole  system:  n = 35  grid  points  on 
a side,  ADAPT  = 6 adajrtive  levels. 


J D P AI  T'adm 


4.100 

25.6240 

4.000 

23.6889 

3.900 

21.8122 

3.800 

19.9945 

3.700 

18.2343 

3.600 

16.5273 

3.500 

14.8654 

3.400 

13.2360 

3.300 

11.6187 

3.200 

9.9769 

3.100 

8.2322 

3.000 

6.0744 

2.970 

5.0079 

2.962 

4.4079 

0.1600 

0.9788 

0.1689 

0.9769 

0.1788 

0.9749 

0.1901 

0.9725 

0.2029 

0.9697 

0.2178 

0.9664 

0.2354 

0.9626 

0.2569 

0.9578 

0.2840 

0.9518 

0.3207 

0.9437 

0.3766 

0.9316 

0.4939 

0.9072 

0.5931 

0.8875 

0.6720 

0.8725 

1.9830 

0.0100 

1.9820 

0.0112 

1.9808 

0.0125 

1.9794 

0.0142 

1.9779 

0.0161 

1.9762 

0.0183 

1.9743 

0.0211 

1.9720 

0.0246 

1.9693 

0.0290 

1.9661 

0.0352 

1.9622 

0.0445 

1.9569 

0.0633 

1.9548 

0.0781 

1.9542 

0.0890 
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Table  5.8:  Single  boosted  black  hole  for  the  determination  of  the  rest  mass  E^est 
n = 35  grid  points  on  a side,  ADAPT  = 6 adaptive  levels. 


J 

P 

Eadm 

D^est 

4.100 

0.1600 

1.0126 

0.9998639 

4.000 

0.1689 

1.0140 

0.9998518 

3.900 

0.1788 

1.0157 

0.9998383 

3.800 

0.1901 

1.0177 

0.9998233 

3.700 

0.2029 

1.0202 

0.9998068 

3.600 

0.2178 

1.0232 

0.9997892 

3.500 

0.2354 

1.0271 

0.9997711 

3.400 

0.2569 

1.0322 

0.9997548 

3.300 

0.2840 

1.0393 

0.9997461 

3.200 

0.3207 

1.0500 

0.9997633 

3.100 

0.3766 

1.0684 

0.9998799 

3.000 

0.4939 

1.1159 

1.0006720 

2.970 

0.5931 

1.1645 

1.0022042 

2.962 

0.6720 

1.2083 

1.0041878 
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Table  5.9:  Normalized  orbital  parameters  for  a binary  black  hole  system:  n = 35  grid 
points  on  a side,  ADAPT  = 6 adaptive  levels. 


JKmt) 

mil 

Eh/l^ 

D/m 

4.101 

0.0200 

-0.03342 

12.8138 

4.001 

0.0223 

-0.03549 

11.8462 

3.901 

0.0251 

-0.03780 

10.9079 

3.801 

0.0283 

-0.04041 

9.99901 

3.701 

0.0321 

-0.04336 

9.11892 

3.602 

0.0366 

-0.04672 

8.26540 

3.502 

0.0422 

-0.05059 

7.43439 

3.402 

0.0491 

-0.05508 

6.61964 

3.302 

0.0580 

-0.06038 

5.81082 

3.202 

0.0703 

-0.06683 

4.98963 

3.101 

0.0890 

-0.07518 

4.11662 

2.996 

0.1267 

-0.08876 

3.03515 

2.957 

0.1565 

-0.09890 

2.49844 

2.937 

0.1788 

-0.10792 

2.19476 
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5.2  Post-Newtonian  Comparisons 

At  this  point,  we  will  compare  our  numerical  results  to  theoretical  predictions 
from  Newtonian  and  post-Newtonian  calculations.  In  particular,  we  compare  our 
results  to  the  (post)^-Newtonian  predictions  of  Kidder  et  al.  [43],  which  are  written 
in  a convenient  form  in  Cook  [29].  In  brief,  the  expressions  derived  in  the  post- 
Newtonian  approximation  are  expansions  in  vjc.  The  (post)^-Newtonian  expressions 
are  expanded  out  to  powers  of  {vjcf . 

Cook  rewrites  the  expressions  of  Kidder  et  al.  to  relate  the  normalized  binding 
energy  the  normalized  angular  momentum  J/pm,  and  the  normalized  angular 

frequency  mi}.  To  (post)^  order,  these  equations  for  an  equal  mass  binary  system  are 


1 /pm\2 

2 \~) 


' 37/pm\2  1269 

' + 16(V)  +128 


(5.8) 


and  hnally 


\ 37,  ^^,2/3  1069 

48^  ’ 384 


m: 


(5.9) 


J 

I = imiVj 

/im  J 


-2/.3 


(5.10) 


In  the  above  three  equations,  the  first  term  in  the  square  brackets  is  the  Newto- 
nian result,  the  second  term  is  the  (post)^/^-Newtonian  result,  and  the  third  term 
corresponds  to  the  (post)^-Newtonian  result. 

We  can  also  compare  our  results  to  a purely  Newtonian  equation  relating  the 
normalized  binding  energy  E\)/ ^ to  the  normalized  coordinate  separation  distance 
D/m.  Although  the  range  of  validity  of  this  equation  is  severely  limited,  it  acts  as  a 
nice  check  of  the  asymptotic  behavior  of  our  numerical  data  as  the  separation  distance 
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of  the  holes  becomes  large.  The  Newtonian  equation  is 


T'b  1 m 

/i  2D 


(5.11) 


In  the  following  hgures,  we  present  our  numerical  results,  compared  to  Newto- 
nian and  post-Newtonian  expectations. 

Figure  5.3  displays  the  normalized  binding  energy  E\,/ jj,  versus  the  normal- 
ized angular  momentum  J / jim.  The  solid  line  is  the  theoretical  prediction  given  by 
Eq.  (5.8).  One  notes  the  curves  corresponding  to  n = 19  and  n = 35  actually  cross  the 
theoretical  prediction,  as  opposed  to  asymptotically  approaching  the  solid  line.  We 
believe  this  is  due  to  the  limited  grid  resolution  of  the  data;  if  the  grid  density  could 
be  increased,  we  would  expect  closer  asymptotic  agreement  with  post-Newtonian  re- 
sults. 

Figure  5.4  displays  the  normalized  binding  energy  E^,/ ix  versus  the  normalized 
angular  frequency  mVt.  The  solid  line  is  the  theoretical  prediction  given  by  Eq.  (5.9). 
There  are  several  interesting  points  to  this  figure.  First,  note  the  Newtonian  regime 
of  the  numerical  curves,  corresponding  to  smaller  values  of  mfl,  appear  to  agree  with 
the  post-Newtonian  prediction  given  by  the  solid  line.  There  appears  to  be  good 
agreement  between  the  theoretical  prediction  and  the  two  higher  resolution  curves 
up  until  mil  ~ 0.1.  At  this  point,  the  curvature  of  the  two  higher  resolution  curves 
deviates  from  the  theoretical  prediction,  and  tends  to  more  negative  values  of  the 
normalized  binding  energy.  We  attribute  this  to  the  fact  that  the  system  is  becoming 
highly  relativistic  at  this  point,  and  higher  order  post-Newtonian  effects  would  have 
to  be  considered  to  accurately  predict  the  normalized  binding  energy. 

Figure  5.5  displays  the  normalized  angular  momentum  J / jim  versus  the  normal- 
ized angular  frequency  mil.  The  post-Newtonian  prediction  is  given  by  Eq.  (5.10), 
and  is  denoted  in  the  hgure  by  the  solid  line.  The  curves  indicate  convergence  at  both 
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Figure  5.3:  The  normalized  binding  energy  E\,/ versus  the  normalized  angular  mo- 
mentum J/ fim  for  various  grid  resolutions. 
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Figure  5.4:  The  normalized  binding  energy  £'b//r  versus  the  normalized  angular  fre- 
quency mil  for  various  grid  resolutions. 
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Figure  5.5;  The  normalized  angular  momentum  J//im  versus  the  normalized  angular 
frequency  mi}  for  various  grid  resolutions. 

the  Newtonian  and  relativistic  ends  of  the  figure. 

Finally,  Fig.  5.6  displays  the  normalized  binding  energy  F'b/A^  versus  the  normal- 
ized coordinate  separation  distance  D/m.  The  solid  line  is  the  theoretical  prediction 
dictated  by  Newtonian  theory  only,  as  given  by  Eq.  (5.11).  Again,  this  figure’s  value 
lies  only  in  large  values  of  D/m,  where  the  system  is  approaching  Newtonian  speeds. 
We  can  see  from  the  figure  that  as  we  increase  our  grid  resolution,  our  results  do 
indeed  asymptotically  approach  Newtonian  theory. 

Before  we  compare  our  data  to  that  of  Cook  [29]  and  Baumgarte  [33],  we  feel  it 
is  important  once  again  to  stress  that  there  is  some  ambiguity  as  to  what  the  “mass” 
of  a black  hole  in  a binary  system  means.  Both  Cook  and  Baumgarte  associate  the 
area  of  the  apparent  horizon  to  the  mass  of  an  individual  hole,  and  hold  the  area  of 
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Figure  5.6:  The  normalized  binding  energy  E'b//^  versus  the  normalized  coordinate 
separation  distance  D/m  for  various  grid  resolutions. 
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the  apparent  horizon  fixed  as  they  generate  their  sequence  of  circular  orbits.  We,  on 
the  other  hand,  chose  to  use  the  rest  mass  to  describe  the  individual  hole,  and  held 
the  bare  mass  of  each  hole  fixed  as  we  generated  our  sequence  of  orbits. 

Despite  the  fact  that  we  determine  the  normalized  separation  distance  for  our 
data,  we  must  keep  in  mind  that  this  is  a coordinate  separation  distance,  and  not 
a proper  separation  distance.  Hence,  we  can  not  compare  our  D/m  to  the  proper 
separation  distances  of  Cook  and  Baumgarte,  primarily  because  of  the  fact  that  we 
do  not  know  the  locations  of  the  apparent  horizons  in  our  geometries.  However,  we 
can  get  an  approximate  value  of  the  proper  separation  distance  of  the  innermost  stable 
circular  orbit  by  examining  the  quadrupole  nature  of  the  field.  Roughly  speaking,  the 
amplitude  of  the  quadrupole  moment  of  the  geometry  measured  at  r = oo  may  be 
approximated  to  be 

^xx  ~ g-E'ADMC^^-  (5-12) 

The  variable  d may  be  interpreted  as  the  proper  separation  distance  of  two  objects 
of  mass  In  reality,  the  amplitude  of  the  quadrupole  moment  consists  of  two 

parts:  a portion  due  to  the  two  objects  of  mass  Brest , and  a portion  due  to  the 
correction  in  the  conformal  factor.  We  may  write  this  quadrupole  moment  amplitude 
as 

Txi  = -D^  Brest  +Tu.  (5.13) 

The  computer  code  moment  calculates  the  contribution  from  the  conformal  factor 
correction  J„. 

We  may  equate  Eq.  (5.12)  and  Eq.  (5.13)  to  generate  an  expression  for  the  ap- 
proximate separation  distance  of  the  innermost  circular  orbit,  as  measured  at  infinity. 
We  choose  to  normalize  the  separation  distance  d by  the  ADM  mass  of  the  system: 

d 

Badm 


’ 2 D'^  Brest  + 
-^ADM 


(5.14) 
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Table  5.10:  The  normalized  coordinate  separation  distance  D/m  and  the  normalized 
separation  distance  (as  measured  at  inhnity)  d/Ep,Du  for  three  grid  resolutions. 


Resolution 

D/m 

d/  i?ADM 

n = 11 

2.915 

3.078 

n = 19 

2.143 

2.290 

II 

CO 

or 

2.195 

2.349 

Table  5.11:  Comparison  of  the  orbital  parameters  of  Cook,  Baumgarte,  and  the  n = 35 
results  of  this  work. 


Data 

Ehll^ 

J/l^im 

mil 

Cook 

-0.09030 

2.976 

0.172 

Baumgarte 

-0.092 

2.95 

0.18 

This  work 

-0.10792 

2.937 

0.1788 

We  present  the  normalized  coordinate  distance  and  the  normalized  separation  distance 
as  measured  at  inhnity  in  Table  5.10. 

Table  5.11  lists  the  various  parameters  of  interest  corresponding  to  the  ISCO, 
as  listed  in  Baumgarte  [33] . It  is  important  to  note  Cook  [29]  employed  the  conformal 
imaging  approach  with  a two-sheeted  geometry,  while  Baumgarte  employed  the  three- 
sheeted  puncture  method.  Both  held  the  areas  of  the  apparent  horizons  hxed  as  they 
generated  their  sequence  of  circular  orbits. 

The  agreement  between  our  data  and  that  of  Cook  and  Baumgarte  may  lend 
some  credence  both  to  their  method  of  approach,  as  well  to  the  variational  principle  we 
employed.  On  one  hand,  our  method  is  based  on  a mathematically  derived  variational 
principle  for  binary  black  holes,  in  which  the  variational  principle  dictates  to  us  that 
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we  must  hold  the  bare  mass  fixed,  and  not  the  area  of  the  apparent  horizon.  This 
greatly  simplihes  the  analysis,  as  one  does  not  need  to  be  concerned  with  the  location 
of  the  apparent  horizon,  which  can  be  a daunting  numerical  task  [35, 42] . On  the  other 
hand,  the  close  agreement  of  Cook  and  Baumgarte’s  results  with  ours  may  indicate 
that  there  is  some  interesting  physics  yet  to  be  discovered  concerning  the  relationship 
between  the  variational  principle  we  employed  and  the  methods  employed  by  Cook 
and  Baumgarte. 

5.3  Other  Numerical  Results 
5.3.1  The  Lapse  Function 

As  is  indicated  by  the  variational  principle  of  Blackburn  and  Detweiler  [36]  given 
by  Eq.  (3.23)  in  §(3),  we  may  also  generate  approximate  values  for  the  ratio  of  the 
lapse  functions  on  the  upper  and  lower  sheets  of  our  three-sheeted  geometry.  Recall 
the  lapse  function  is  a measure  of  the  proper  time  elapsed  as  one  moves  from  one 
hypersurface  to  the  next.  In  particular,  the  variable  N in  Eq.  (3.23)  is  defined  as 


N = 


S lower  sheet 
^upper  sheet 


(5.15) 


where  n is  the  respective  lapse  on  an  upper  or  lower  sheet  of  the  geometry.  If  we 
choose  the  lapse  on  the  upper  sheet  to  be  normalized  to  Uupper  sheet  = T then  we  may 
interpret  N to  be  a measure  of  the  lapse  on  the  lower  sheets. 

Determination  of  N numerically  is  not  particularly  straight  forward.  Recall  the 
variational  principle  dictates  N is  determined  via 


1 AE'adm 

2 Afn 


(5.16) 
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for  fixed  values  of  the  angular  momentum  J.  It  is  not  a simple  task  to  carry  out  the 
variation  indicated  by  Eq.  (5.16),  simply  because  the  bare  mass  m is  in  some  sense 
the  fundamental  “unit”  associated  with  the  physical  quantities  in  the  computer  code. 

This  problem  is  side  stepped  via  the  following  procedure.  Assume  a particular 
choice  for  the  bare  mass  m has  a value  of  where  ms  is  simply  a number,  and 

L is  the  unit  associated  with  the  mass.  Likewise,  assume  a particular  choice  of  the 
angular  momentum  to  be  JL^,  where  again  J is  simply  a pure  number.  These  two 
choices  result  in  an  ADM  mass  with  a value  of  EL,  where  once  again  E is  a pure 
number. 

Now,  imagine  incrementing  the  angular  momentum  to  a new  value,  given  by 
(J  + 6 J)L‘^,  while  holding  the  value  of  the  bare  mass  fixed.  This  in  turn  yields  a new 
value  for  the  ADM  mass,  given  as  {E+5E)L.  This  is  not  quite  in  line  with  the  method 
the  variational  principle  indicates — to  determine  the  lapse,  we  should  be  holding  the 
angular  momentum  fixed  while  varying  the  bare  mass.  In  order  to  achieve  this,  we 
imagine  a change  in  the  units  used  to  describe  the  quantities  mentioned  above.  In 
particular,  to  hold  the  angular  momentum  fixed  we  demand  = (J  + 
where  E is  the  new  unit  system.  This  indicates  a rescaling  of  the  units  will  take 
place,  namely  L = SJ)L'  = XL',  where  A is  the  scale  factor. 

With  this  scale  change  in  our  units,  this  implies  our  initial  bare  mass  tubL 
becomes  m.BXL'.  Likewise,  the  ADM  mass  associated  with  the  change  in  the  angular 
momentum  becomes  {E  + 5E)XU . Now  that  the  rescaling  has  taken  place,  we  drop 
the  prime  superscript  on  our  units.  Once  this  is  done,  we  may  write  an  expression  for 
the  lapse  function. 

The  bare  mass  was  normalized  to  a value  of  1.0  in  all  computer  code  runs. 
If  we  denote  the  initial  angular  momentum  and  it’s  corresponding  ADM  mass  by 
(J,  E'adm),  and  the  incremented  angular  momentum  and  it’s  corresponding  ADM 
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mass  by  ( J',  -E'adm))  then  the  lapse  function  is  given  by 


1 — £'adm 


ADM 


(5.17) 


2 1 - A 


where  A is  the  scale  factor  defined  as 


(5.18) 


We  now  present  the  numerical  data  for  the  lapse  function,  which  is  a measure 
of  the  flow  of  time  on  the  lower  sheets,  keeping  in  mind  we  normalize  the  lapse  on  the 
upper  sheet  to  take  a value  of  1.0.  We  list  the  dimensionless  coordinate  separation 


The  data  from  Tables  5.12,  5.13,  and  5.14  are  displayed  in  Fig.  5.7.  From  in- 
spection of  the  figme,  the  data  are  all  in  close  agreement  with  one  another.  The 
interpretation  of  the  data  is  as  follows:  When  the  holes  are  separated  by  large  dis- 
tances, then  the  geometry  has  approximately  the  same  lapse  as  a completely  isolated 
hole.  This  corresponds  to  an  asymptotic  limit  of  N ^ 1 as  D/m  ^ oo,  which  the 
figure  demonstrates.  However,  as  the  two  holes  come  closer  together,  the  gravitational 
interaction  increases,  causing  the  relativistic  effects  to  increase  as  well.  However,  on 
the  lower  sheets,  the  isolated  holes  remain  unchanged  (the  bare  masses  are  fixed,  and 
the  holes  on  the  lower  sheet  have  no  linear  or  angular  momentum  [4]).  Because  the 
geometry  on  the  lower  sheets  is  unchanging,  the  lapse  function  on  the  lower  sheets  is 
unchanging  as  well.  Hence,  as  the  value  of  N decreases  with  a decreasing  separation 
distance,  this  corresponds  to  the  proper  time  on  the  upper  sheet  lagging  the  proper 
time  on  the  lower  sheet.  For  instance,  when  the  holes  are  at  the  innermost  stable 
circular  orbit,  for  a single  tick  of  the  clock  on  the  upper  sheet,  the  clock  on  the  lower 
sheet  has  undergone  approximately  1.4  ticks. 


distance  D/m  and  the  lapse  N for  the  three  different  resolutions  in  Tables  5.12,  5.13, 
and  5.14. 
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Table  5.12:  The  normalized  coordinate  separation  distance  D/m  and  the  lapse  func- 
tion for  n = 11  grid  points  on  a side,  with  ADAPT  = 10  adaptive  levels. 


D/m 

N 

12.0084 

0.9539 

11.4228 

0.9514 

10.8304 

0.9485 

10.2283 

0.9451 

9.6153 

0.9413 

8.9884 

0.9367 

8.3433 

0.9313 

7.6740 

0.9247 

6.9717 

0.9162 

6.2174 

0.9048 

5.3736 

0.8879 

4.3194 

0.8572 

4.0437 

0.8465 

3.7081 

0.8313 

2.9152 

0.7822 
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Table  5.13:  The  normalized  coordinate  separation  distance  Dim  and  the  lapse  func- 
tion for  n = 19  grid  points  on  a side,  with  ADAPT  = 10  adaptive  levels. 


D/m 

N 

13.6658 

0.9568 

12.7915 

0.9535 

11.9058 

0.9496 

11.0083 

0.9450 

10.0971 

0.9395 

9.1719 

0.9327 

8.2306 

0.9242 

7.2723 

0.9132 

6.2944 

0.8986 

5.2890 

0.8781 

4.2234 

0.8461 

2.8974 

0.7765 

2.2963 

0.7222 

2.2363 

0.7155 

2.1427 

0.7045 
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Table  5.14:  The  normalized  coordinate  separation  distance  D/m  and  the  lapse  func- 
tion for  n = 35  grid  points  on  a side,  with  ADAPT  = 6 adaptive  levels. 


D/m 

N 

12.8138 

0.9506 

11.8462 

0.9463 

10.9079 

0.9415 

9.9990 

0.9359 

9.1189 

0.9296 

8.2654 

0.9221 

7.4344 

0.9133 

6.6196 

0.9025 

5.8108 

0.8889 

4.9896 

0.8705 

4.1166 

0.8432 

3.0352 

0.7885 

2.4984 

0.7455 

2.1948 

0.7134 
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Figure  5.7:  The  lapse  function  N versus  the  normalized  coordinate  separation  distance 
D/m  for  three  resolutions. 
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5.3.2  Gravitational  Waves 

As  mentioned  in  §(4.4.4),  we  developed  a method  for  determining  the  multipole 
moments  of  the  gravitational  held,  denoted  as  It  is  possible  to  relate  these 

multipole  moments  to  the  reduced  quadrupole  moments  J^,  which  in  turn  yields 
information  about  the  gravitational  wave  content  of  the  system.  First,  let  us  briehy 
review  some  dehnitions.  Recall  from  Eq.  (4.68)  we  dehned  the  multipole  moments  as 

dS^,  (5.19) 

where  are  polynomials  related  to  the  spherical  harmonics,  and  the  standard  deh- 
nition  of  the  reduced  quadrupole  moment  is 


I = 

Mj  — 


P 


.2 


d^x, 


(5.20) 


where  the  volume  integral  is  performed  over  all  space  [10]. 

We  may  rewrite  Eq.  (5.19)  as  a volume  integral,  which  in  turn  allows  us  to  relate 
the  multipole  moments  and  the  reduced  quadrupole  moments  lij.  Specihcally, 
the  only  non-zero  radiating  modes  are  of  the  form 

$22-  (5.21) 


The  computer  code  moment  calculates  the  multipole  moment  $22,  which  allows 
us  to  calculate  the  gravitational  wave  luminosity  via  the  standard  quadrupole  moment 
formula  [10]  given  by 


^ dExDu  _ 1 V 

dt 


(5.22) 
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where  the  three  dots  above  the  reduced  quadrupole  moments  indicate  three  time 
derivatives,  and  the  angled  brackets  indicate  averaging  over  several  orbital  periods. 
Summation  is  implied  over  all  spatial  indices  i and  j. 

Because  of  the  quadrupole  nature  of  the  radiation,  we  may  assume  a time  depen- 
dence of  the  form  cos(2f2t),  which  in  turn  implies  the  three  time  derivatives  on  each 
of  the  reduced  quadrupole  moments  may  be  replaced  by  (211)^  in  the  above  equation 
for  the  luminosity. 

We  calculate  the  reduced  quadrupole  moments  by  assuming  they  consist  of  two 
parts:  one  part  is  due  to  the  existence  of  the  point  masses  (which  correspond  to 
the  black  holes  of  mass  £'rest)>  and  a second  part  which  is  due  to  the  existence  of 
the  nonlinear  correction  to  the  conformal  factor  (which  corresponds  to  the  numerical 
value  of  $22)-  It  is  then  straightforward  to  write  an  expression  for  the  gravitational 
wave  luminosity  in  terms  of  the  rest  masses  of  the  black  holes  E^esu  th®  coordinate 
separation  distance  between  the  holes  D,  the  orbital  angular  frequency  12,  and  the 
multipole  moment  $22: 


L 


128 


if 


^ ($22 

15  15 


(5.23) 


The  first  term  of  Eq.  (5.23)  is  the  expected  Newtonian  result,  and  the  remaining  terms 
are  the  relativistic  corrections. 

Tables  5.15,  5.16,  and  5.17  display  various  quantities  derived  from  the  gravi- 
tational wave  luminosity  for  the  three  different  grid  resolutions  we  have  been  study- 
ing. All  three  tables  display  the  normalized  coordinate  separation  distance  D/m, 
the  gravitational  wave  luminosity  L as  given  by  Eq.  (5.23),  the  expected  Newtonian 
gravitational  wave  luminosity  Ln  given  by  only  the  first  term  of  Eq.  (5.23),  the  en- 
ergy radiated  per  orbit  Ei/orbit,  and  the  time  scale  t the  binary  system  will  spend  at 
a particular  separation  distance.  A few  important  things  to  note  before  we  display 
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Table  5.15:  Gravitational  wave  data  for  a black  hole  binary  system  with  n = 11  grid 
points  on  a side  and  ADAPT  = 10  adaptive  levels. 


D/m 

L 

Ln 

Ei/orbit 

t 

12.0084 

4.00E-07 

1.60E-06 

2.96E-04 

5.60E+04 

11.4228 

5.43E-07 

2.06E-06 

3.69E-04 

4.29E+04 

10.8304 

7.48E-07 

2.68E-06 

4.66E-04 

3.24E+04 

10.2283 

1.05E-06 

3.57E-06 

5.96E-04 

2.41E+04 

9.6153 

1.51E-06 

4.87E-06 

7.72E-04 

1.75E-f04 

8.9884 

2.22E-06 

6.82E-06 

1.02E-03 

1.25E+04 

8.3433 

3.38E-06 

9.89E-06 

1.37E-03 

8.66E+03 

7.6740 

5.33E-06 

1.50E-05 

1.90E-03 

5.79E-P03 

6.9717 

8.87E-06 

2.43E-05 

2.73E-03 

3.70E+03 

6.2174 

1.59E-05 

4.31E-05 

4.11E-03 

2.21E+03 

5.3736 

3.19E-05 

8.93E-05 

6.68E-03 

1.19E+03 

4.3194 

8.30E-05 

2.66E-04 

1.28E-02 

5.02E+02 

4.0437 

1.08E-04 

3.70E-04 

1.53E-02 

3.95E+02 

3.7081 

1.51E-04 

5.71E-04 

1.90E-02 

2.92E+02 

2.9152 

3.38E-04 

1.90E-03 

3.19E-02 

1.40E+02 

our  numerical  results  is  the  Newtonian  expectation  of  the  luminosity  is  determined 
strictly  via  Kepler’s  laws,  and  not  from  the  variational  principle  for  the  orbital  angular 
frequency.  Also,  the  energy  radiated  per  orbit  is  calculated  by  multiplying  the  lumi- 
nosity and  the  orbital  period:  £'/orbit  — ^L.  Finally,  the  time  scale  of  the  orbit  was 
determined  by  dividing  the  absolute  value  of  the  binding  energy  by  the  luminosity: 

“ L • 

We  also  present  the  data  from  Tables  5.15,  5.16  and  5.17  in  graphical  form. 
First,  Fig.  5.8  displays  the  luminosity  L as  a function  of  the  normalized  separation 
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Table  5.16:  Gravitational  wave  data  for  a black  hole  binary  system  with  n = 19  grid 
points  on  a side  and  ADAPT  — 10  adaptive  levels. 


Dim 

L 

Ln 

El/orbit 

t 

13.6658 

5.99E-07 

8.39E-07 

4.52E-04 

2.99E+04 

12.7915 

8.64E-07 

1.17E-06 

5.87E-04 

2.17E+04 

11.9058 

1.28E-06 

1.67E-06 

7.74E-04 

1.55E+04 

11.0083 

1.93E-06 

2.47E-06 

1.04E-03 

1.08E+04 

10.0971 

3.01E-06 

3.81E-06 

1.42E-03 

7.32E+03 

9.1719 

4.85E-06 

6.16E-06 

1.98E-03 

4.83E+03 

8.2306 

8.13E-06 

1.06E-05 

2.84E-03 

3.08E+03 

7.2723 

1.43E-05 

1.97E-05 

4.17E-03 

1.89E+03 

6.2944 

2.64E-05 

4.05E-05 

6.34E-03 

l.llE+03 

5.2890 

5.26E-05 

9.66E-05 

l.OOE-02 

6.13E+02 

4.2234 

1.17E-04 

2.98E-04 

1.68E-02 

3.09E+02 

2.8974 

3.59E-04 

1.96E-03 

3.34E-02 

1.22E+02 

2.2963 

6.19E-04 

6.27E-03 

4.52E-02 

8.17E+01 

2.2363 

6.54E-04 

7.15E-03 

4.65E-02 

7.89E+01 

2.1427 

7.11E-04 

8.86E-03 

4.86E-02 

7.51E+01 
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Table  5.17:  Gravitational  wave  data  for  a black  hole  binary  system  with  n = 35  grid 
points  on  a side  and  ADAPT  = 6 adaptive  levels. 


D/m 

L 

Ln 

£^/orbit 

t 

12.8138 

1.38E-06 

1.16E-06 

8.68E-04 

1.21E+04 

11.8462 

1.98E-06 

1.71E-06 

l.llE-03 

8.98E+03 

10.9079 

2.85E-06 

2.59E-06 

1.43E-03 

6.63E+03 

9.9990 

4.16E-06 

4.00E-06 

1.85E-03 

4.86E+03 

9.1189 

6.13E-06 

6.34E-06 

2.40E-03 

3.54E+03 

8.2654 

9.17E-06 

1.04E-05 

3.14E-03 

2.55E+03 

7.4344 

1.40E-05 

1.76E-05 

4.16E-03 

1.81E+03 

6.6196 

2.19E-05 

3.15E-05 

5.60E-03 

1.26E+03 

5.8108 

3.56E-05 

6.04E-05 

7.70E-03 

8.48E+02 

4.9896 

6.13E-05 

1.29E-04 

l.lOE-02 

5.45E+02 

4.1166 

1.17E-04 

3.38E-04 

1.65E-02 

3.21E+02 

3.0352 

2.93E-04 

1.55E-03 

2.90E-02 

1.52E+02 

2.4984 

4.81E-04 

4.11E-03 

3.87E-02 

1.03E+02 

2.1948 

6.41E-04 

7.85E-03 

4.53E-02 

8.45E+01 
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Figure  5.8:  The  gravitational  wave  luminosity  L as  a function  of  the  normalized 
separation  distance  D/m. 

distance  D /m.  The  three  different  resolutions  are  displayed,  as  well  as  the  Newtonian 
expectation  for  the  gravitational  wave  luminosity.  Figure  5.8  indicates  relatively  good 
agreement  in  both  the  Newtonian  domain  as  well  as  the  highly  relativistic.  In  par- 
ticular, the  numerical  results  appear  to  be  converging  to  a limit  which  is  in  line  with 
the  Newtonian  expectation.  Also,  the  numerical  results  are  in  excellent  agreement 
with  each  other  as  one  examines  the  curves  as  the  separation  distance  closes  to  the 
innermost  stable  circular  orbit. 

We  now  present  Fig.  5.9,  the  energy  radiated  per  orbit  E/orbit  versus  the  abso- 
lute value  of  the  non- normalized  binding  energy  E)^.  Once  again,  all  three  resolutions 
are  displayed.  The  hgure  shows  the  numerical  results  are  converging,  and  the  data 
gives  an  approximate  view  of  the  number  of  orbits  the  system  will  complete  at  a 
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Figure  5.9:  The  energy  radiated  per  orbit  Fi/orbit  as  a function  of  the  absolute  value 
of  the  non- normalized  binding  energy 

particular  separation  distance.  For  instance,  examining  the  n = 35  curve,  when  the 
separation  distance  is  D/m  = 12.8138,  the  ratio  of  the  binding  energy  to  the  energy 
radiated  per  orbit  is  on  the  order  of  20,  which  indicates  the  system  will  complete 
approximately  20  orbits  at  this  separation  distance.  Likewise,  when  the  separation 
distance  is  Djm  = 2.1948,  the  ratio  of  the  binding  energy  to  the  energy  radiated  per 
orbit  is  on  the  order  of  1,  which  indicates  the  system  will  complete  approximately  one 
orbit  at  this  separation  distance  before  the  hnal  plunge. 

We  may  get  an  approximate  idea  of  the  time  scale  involved  with  the  evolution 
of  our  system  by  examining  Fig.  5.10,  which  displays  the  time  scale  of  radiation 
reaction  versus  the  normalized  separation  distance  D /m.  The  figure  shows  the  data  is 
converging  as  the  grid  resolution  is  increased,  and  all  three  resolutions  agree  relatively 
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Figure  5.10:  The  time  scale  of  radiation  reaction  as  a function  of  the  normalized 
separation  distance  D/m. 

well  with  each  other  as  the  holes  approach  the  innermost  stable  circular  orbit.  As 
indicated  in  the  figure,  the  holes  will  spend  approximately  t lOOrh  at  the  innermost 
stable  circular  orbit  before  the  hnal  plunge  and  merger. 

5.4  Discussion 

As  demonstrated,  our  variational  principle  for  describing  binary  black  hole  sys- 
tems in  the  framework  of  the  three  sheeted  Brill  geometry  greatly  simplifies  numerical 
implementation.  Due  to  the  necessity  of  holding  the  bare  masses  of  the  holes  fixed,  we 
did  not  concern  ourselves  with  calculations  involving  the  apparent  horizon.  Compar- 
isons of  our  numerical  results  with  that  of  Cook  [29]  and  Baumgarte  [33]  would  seem 
to  point  to  some  interesting  mathematical  physics:  a potentially  interesting  project 
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would  be  to  find  a transformation  law  for  variational  principles  which  hold  the  bare 
mass  hxed  to  variational  principles  in  which  the  apparent  horizon  area  is  held  fixed. 

Another  advantage  our  analysis  has  over  previous  work  is  the  extraction  of  infor- 
mation pertaining  to  the  gravitational  wave  content  of  the  geometry.  This  information 
yields  estimates  pertaining  to  the  dynamics  of  the  system,  which  is  of  vital  interest 
to  the  community  involved  with  gravitational  wave  detectors  like  LIGO. 


CHAPTER  6 
CONCLUSION 

In  an  era  in  which  numerical  relativity  is  attempting  to  solve  the  full  set  of  non- 
linear Einstein  equations,  we  feel  numerical  simulations  based  upon  mathematically 
sound  variational  principles  is  a step  in  the  right  direction.  In  general,  they  greatly 
simplify  the  algorithms  involved  in  calculations:  rather  than  attempting  to  solve  the 
full  set  of  Einstein  equations  one  simply  need  to  minimize  a single  function  after 
satisfying  the  constraint  equations.  Another  pleasing  property  of  variational  princi- 
ples is  they  provide  a road  map  for  deriving  accurate  estimates  of  orbital  parameters 
for  binary  systems,  which  may  in  turn  be  used  to  generate  waveform  templates  for 
gravitational  wave  observatories. 

Assuming  the  constraint  equations  are  satisfied,  our  method  requires  only  the 
minimization  of  the  effective  mass  to  ensure  an  approximate  solution  to  the  quasi- 
stationary Einstein  equations,  as  well  as  the  equations  governing  the  irrotational  mo- 
tion of  the  neutron  stars.  Our  treatment  of  irrotational  binary  neutron  stars  yields 
accurate  estimates  ol  the  mass,  gravitational  radiation,  and  orbital  frequency  of  the 
system  quantities  necessary  to  construct  viable  waveform  templates  for  gravitational 
wave  detectors  [3].  The  variational  principle  also  serves  as  a relatively  simple  way  to 
test  many  of  the  current  conformally  flat  treatments  of  binary  neutron  stars  investi- 
gated by  other  authors  [14, 15, 20,  21,  23]. 

With  the  power  of  nonlinear  adaptive  multigrid  techniques,  we  demonstrated 
the  use  of  a variational  principle  for  the  ADM  mass  for  binary  black  holes.  The 
variational  principle  ensures  solutions  to  the  cpiasi-equilibrium  Einstein  equations  for 
hxed  values  of  the  angular  momentum  and  the  black  hole  bare  masses.  We  took 
advantage  of  the  simplifying  assumptions  of  a conformally  fiat  metric,  in  which  the 
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conformal  extrinsic  curvature  is  trace-free.  This  introduced  some  additional  energy 
into  the  system,  which  limits  this  geometry’s  ability  to  model  astrophysically  realistic 
black  hole  systems.  Despite  this,  the  geometry  acted  as  a proving  ground  for  the 
variational  principle.  We  employed  the  “puncture”  method  to  describe  the  black 
holes.  This  greatly  simplified  the  numerical  analysis  by  allowing  the  three-sheeted 
geometry  to  be  compactified  into  covered  by  a regular  Cartesian  grid. 

It  is  important  to  reiterate  our  treatment  holds  the  bare  masses  of  the  holes  and 
the  angular  momentum  of  the  system  fixed  as  we  generate  oirr  sequence  of  circular 
orbits.  This  method  is  based  upon  a mathematically  derived  variational  principle, 
and  is  algorithmically  more  desirable  than  other  methods  in  which  the  apparent  hori- 
zon area  is  held  fixed  [29,33].  Agreement  between  our  results  and  the  fixed  horizon 
area  results  of  Baumgarte  and  Cook  may  indicate  a correspondence  between  the  two 
different  approaches. 

We  demonstrated  agreement  between  oiir  numerical  results  and  post- Newtonian 
approximations  for  various  orbital  parameters,  as  well  as  generated  lapse  function  and 
gravitational  wave  information  for  the  system.  The  gravitational  wave  data  may  in 
tirrn  facilitate  gravitational  wave  observatories  in  their  identification  of  astrophysical 
binary  systems. 


APPENDIX  A 

COMPUTER  CODE  FOR  THE  BLACK  HOLE  VARIATIONAL  PRINCIPLE 


In  this  appendix,  we  list  all  of  the  computer  code  we  developed  in  C++  to  solve 
the  Hamiltonian  constraint  and  subseciuently  determine  sequences  of  quasi-stationary 
circular  orbits  by  means  of  employing  the  variational  principle  for  the  ADM  mass. 
Effort  will  be  made  to  list  the  program  functions  in  order  of  relative  importance,  with 
as  many  comments  as  possible  to  clarify  the  purpose  of  the  individual  functions.  We 
also  note  that  the  header  files  included  with  each  of  these  individual  programs  are  the 
standard  hies  assert. h,  fstream.h,  iostream.h,  math.h  and  iomanip.h.  Two  additional 
header  hies,  written  by  Steven  Detweiler  and  which  will  be  listed  later,  are  grid.h  and 
adapt. h.  Any  additional  header  hies  will  be  listed  in  the  individual  programs. 

It  is  important  to  note  the  parameter  ADAPT,  mentioned  in  §(4.3),  is  called 
NMG  (for  non- multigrid)  in  the  code  that  follows. 

We  begin  by  listing  the  program  min,  which  hnds  a minimum  in  the  ADM  mass: 

//  min.cxx 

//  Determines  the  minimum  value  of  the  ADM  mass 
//  Designed  for  Variational  Principle 

//  Code  decreases  the  spacing  between  punctures  with  fixed 
//  angular  momentum  J 

//  Calculates  ADM  mass,  and  saves  it  to  a file 

//  Galerkin  operator  to  be  used  on  *ALL*  levels 
//  symmetries  built  into  relaxation  and  residual  code! 

//  This  is  the  "true"  adaptive  multigrid  code  for  the  non-lineeir 
//  equation  describing  the  conformal  factor  of  a black  hole 
//  binary  system,  using  the  puncture  method  described  in 
//  Brandt  and  Brugmeuin. 

//Be  careful  of  the  largest  grid  you  have  to  force  the  physical 
/ / size  of  the  largest  grid  to  a certain  value  in  order  to 
//  maintain  consistency  (smaller  grids  have  n+2  grid  points, 

//  where  as  the  largest  has  n grid  points) 

/ / RelcLX  on  interior  points  only  on  each  non-mg  level 
//  Use  Robin  conditions  on  the  mg  levels 
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//  This  code  solves  for  u,  where  Phi  = 1/alpha  + 1 + u.  This 
/ / allows  the  Robin  boundary  conditions  to  be  employed 

//Be  sure  to  run  on  wombat! 
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#include  <assert.h> 

#include  <f stream. h> 

#include  <iostream.h> 

#include  <iomanip.h> 

#include  <math.h> 

#include  "grid.h" 

#include  "adapt. h"  //  contains  all  function  prototypes 
//  Coefficients  of  Relcixation  schemes 


//Regular  Del*2  Operator 
extern  const  double  DELO  = 6.0; 
extern  const  double  DELI  = 1.0; 

extern  const  double  DEL2  = 0.0; 

extern  const  double  DELS  = 0.0; 


//  coeff  for  relaxation  point 

//  coeff  for  relaxation  point 

//  once  removed 

//  coeff  for  relaxation  point 

//  twice  removed 

//  coeff  for  relaxation  point 

//  thrice  removed 


//Galerkin  Operator 


extern 

const 

double 

extern 

const 

double 

extern 

const 

double 

extern 

const 

double 

extern 

const 

double 

extern 

const 

double 

extern 

const 

double 

extern 

const 

double 

extern 

const 

double 

extern 

const 

double 

extern 

const 

double 

for  all  points  of  the  coeirser  grid 
GALO  = -8.0/3;  //  coeff  for  releixation 

//  point 

//  coeff  for  relaxation 
//  point  once  removed 
//  coeff  for  relaxation 
//  point  twice  removed 
//  coeff  for  relaxation 
//  point  thrice  removed 


GALl  =0.0; 
GAL2  = 1.0/6; 
GALS  = 1.0/12; 


BAREMl  = 1.00; 
BAREM2  = 1.00; 


//  bare  mass  of  hole  #1 
//  bare  mass  of  hole  #2 


PI  = 4.0*atan(1.0) ; 


Y1  = 0.0*BAREM1;  //  Note  that  X,Y,and  Z 

//  are  all  >0 

Y2  = 0.0*BAREM1; 

Z1  = 0.0+BAREMl 
Z2  = 0.0*BAREM1 
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extern 

const 

double 

PXl  = 

0 . 00*BAREM1 ; 

extern 

const 

double 

PX2  = 

0 . OO^BAREMl ; 

extern 

const 

double 

PZl  = 

0.0*BAREM1; 

extern 

const 

double 

PZ2  = 

0 . 0*BAREM1 

i 

extern 

const 

double 

SXl  = 

0 . 0*BAREM1 

extern 

const 

double 

SX2  = 

0 . 0*BAREM1 

extern 

const 

double 

SYl  = 

0.0*BAREM1 

extern 

const 

double 

SY2  = 

0 . 0+BAREMl 

extern 

const 

double 

SZl  = 

0 . 0+BAREMl 

extern 

const 

double 

SZ2  = 

0.0*BAREM1 

extern 

const 

int  NMG  = 6; 

//  # of  non-mg  levels 

extern 

const 

int  MG 

= 5; 

//  # 

of  mg  levels 

extern 

const 

int  PMAX  = 8, 

//sets  the  number  of  v-cycles 

extern 

const 

double 

j = 3 . 00/(BAREMl*BAREMl) ; //  dimensionless 

//  # to  hold  J 

//  fixed 

//extern  double  J = 1.0; 

extern  const  double  J = j*BAREMl*BAREM2;  //  Fixed  angular 

//  momentum  of 
//  system 


// 

int  mainO 

{ 

using  namespace  Parameters; 

using  namespace  Energy; 

//  MG,  NMG,  j,  ax,  bx,  and  cx  must  be  specified  prior!! 

double  cix  = 4.1+BAREMl;  //  left  most  location  on 

//  curve 

double  bx  = 4.4*BAREM1;  //  center  location  on 

//  curve 

double  cx  = 4.7*BAREM1;  //  right  most  location  on 

//  curve 

const  double  TOL  = l.Oe-6;  //  TOL  ~ sqrt (machine  error) 
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double  fmin,  xmin; 

f or ( J= j *BAREM1*BAREM2 ; J<=3 . 0*BAREM1*BAREM2 ; 

J=J+0.01*BAREM1*BAREM2)  { 

//  see  Numerical  Recipes  for  brent. c code 

fmin  = brent(ajc,bx,cx,newADMmass,TOL,&xmin) ; //  minimum  ADM 

//  mass 

cout  « "Circular  orbit  for  J = " « J « " at  D = " 

« xmin  « " with  E(adm)  = " « fmin  <<  endl; 

of stream  output; 

output.openCminimum-orbits.dat",  ios:  ;app|ios:  :ate); 

//appends  to  end  of  file 

//  prints  out  J,  sep.  dist . , Newtoniau  mass,  Newtonian  binding 
//  energy,  and  ADM  mass 
//double  m = 2*M1; 

//double  mu  = 1.0/2*M1; 

//double  Jdivmmu  = J/(m*mu); 

//double  Eb  = -(fmin  - 2*M1); 

//double  Ebdivmu  = Eb/mu; 
double  Eadm  = fmin; 

output  « "#  J,  D,  P,  M,  Eadm"  « endl; 

output  <<  J « setprecision(12)  <<  " " « xmin 

« " " « PYl  « " " « Ml  « " " « Eadm 

« endl; 

} //  end  for  - J 
} //  end  main 

Another  uselul  program  is  VP,  which  allows  us  to  generate  “effective  potential” 
curves,  plotting  the  ADM  mass  as  a function  of  pimctiu’e  separation  distance  for  fixed 
values  of  angular  momentum; 

//  VP . cxx 

//  Designed  for  Variational  Principle 

//  Code  decreases  the  spacing  between  punctures  with  fixed 
//  angular  momentum  J 

//  Calculates  ADM  mass,  and  saves  it  to  a file 
//  Galerkin  operator  to  be  used  on  *ALL*  levels 
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//  symmetries  built  into  relaxation  and  residual  code! 

//  This  is  the  "true"  adaptive  multigrid  code  for  the  non-linear 
//  equation  describing  the  conformal  factor  of  a black  hole 
//  binary  system,  using  the  puncture  method  described  in 
//  Brandt  and  Brugmann. 

//Be  careful  of  the  largest  grid  you  have  to  force  the 
//  physical  size  of  the  largest  grid  to  a certain 
/ / value  in  order  to  maintain  consistency  (smaller  grids  have 
//  n+2  grid  points,  where  as  the  largest  has  n grid  points) 

//  RelcLX  on  interior  points  only  on  each  non-mg  level 
//  Use  Robin  conditions  on  the  mg  levels 

//  This  code  solves  for  u,  where  Phi  = 1/alpha  + 1 + u.  This 

//  allows  the  Robin 

//  boundary  conditions  to  be  employed 

//Be  sure  to  run  on  wombat  I 


#include 

#include 

#include 

#include 

#include 

#include 

#include 


<assert .h> 

<f stream. h> 

<iostream.h> 

<iomanip.h> 

<math . h> 

"grid.h" 

"adapt. h"  //  contains  all  function  prototypes 


//  Coefficients  of  Releixation  schemes 


//Regular  Del"'2  Operator 
extern  const  double  DELO  =6.0; 
extern  const  double  DELI  = 1.0; 

extern  const  double  DEL2  = 0.0; 

extern  const  double  DELS  = 0.0; 


//  coeff  for  relaxation  point 

//  coeff  for  relaxation  point 

//  once  removed 

//  coeff  for  relaxation  point 

//  twice  removed 

//  coeff  for  relaxation  point 

//  thrice  removed 


//Galerkin  Operator  for  all  points  of  the  coeirser  grid 
extern  const  double  GALO  = -8.0/3;  //  coeff  for  relaxation 

//  point 

extern  const  double  GALl  = 0.0;  //  coeff  for  relaxation  point 
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//  once  removed 


extern 

const 

double 

GAL2 

= 1.0/6;  //  coeff  for  relcixation  point 

//  twice  removed 

extern 

const 

double 

GALS 

= 1.0/12;  //  coeff  for  relcixation 

//  point  thrice  removed 

extern 

const 

double 

BAREMl  = 1.00; 

//  bare  mass  of  hole  #1 

extern 

const 

double 

BAREM2  = 1.00; 

//  bare  mass  of  hole  #2 

extern 

const 

double 

PI  = 

4.0*atan(l .0) ; 

extern 

const 

double 

Y1  = 

0 . 0*BAREM1 ; 

//  Note  that  X,Y,and  Z 
//  aire  all  >0 

extern 

const 

double 

Y2  = 

0.0*BAREM1; 

extern 

const 

double 

Z1  = 

0.0*BAREM1; 

extern 

const 

double 

Z2  = 

0 . 0*BAREM1 ; 

extern 

const 

double 

PXl 

= 0.00+BAREMl; 

extern 

const 

double 

PX2 

= 0.00*BAREM1; 

extern 

const 

double 

PZl 

= 0.0*BAREM1; 

extern 

const 

double 

PZ2 

= 0.0*BAREM1 

extern 

const 

double 

SXl 

= 0.0*BAREM1 

extern 

const 

double 

SX2 

= 0.0+BAREMl 

extern 

const 

double 

SYl 

= 0.0*BAREM1 

extern 

const 

double 

SY2 

= 0.0+BAREMl 

extern 

const 

double 

SZl 

= 0.0+BAREMl 

extern 

const 

double 

SZ2 

= 0.0+BAREMl 

extern 

const 

int  NMG  = 6 

; //  # of  non-mg  levels 

//extern  int 

MG  = 3; 

//  # 

of  mg  levels 

extern 

const 

int  MG 

= 5; 

//  # 

of  mg  levels 

extern 

const 

int  PMAX  = 

8;  //sets  the  number  of  v-cycles 

extern 

const 

double 

j = 

2. 962/ (BAREMl *BAREM1) ; //dimensionless 

//  # to  hold  J 

//  fixed 

//extern  double  J=1.0;  //  Fixed  angular  momentum  of  system, 

//  but  give  initial  arb.  value 

extern  const  double  J = j*BAREMl*BAREM2;  //  Fixed  angular 

//  momentum  of 
//  system 
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// 

int  mainO 

{ 

using  namespace  Parameters; 

for (MG  =3;  MG  <=  3;  MG++)  { 

for(J  = j*BAREMl*BAREM2; J >=  2 . 961*BAREM1*BAREM1 ; 

J = J-0.001*BAREM1*BAREM2)  { 

double  sepdist  = 8.5*BAREM1;  //  separation  distance 

while (sepdist>=3 . 6*BAREM1)  { //  puncture  shouldn't 

//  merge . . . 

setup (sepdist) ; //  determines  parameter  values 

checkparam(sepdist) ; //  checks  parameters  for 

//  consistency 

newADMmassO  ; //  iterates  to  find  Ml, M2,  then 

//  solves,  writes  to  file... 
checkparam(sepdist) ; //  checks  parameters  for 

//  consistency 

sepdist  = sepdist  - 0.3*BAREM1;  //decrement  puncture 

//  positions 


} //  end  - while  sepdist 

} //  end  - for  J 
} //  end  - for  MG 
} //  end  main 

The  following  program,  newADMmass,  is  the  “workhorse”  program,  and  con- 
tains most  of  the  functions  used  to  solve  the  Hamiltonian  constraint: 

//  newADMmass . cxx  - portion  of  code  which  calculates  correction 
//to  conformal  factor  and  the  corresponding  ADM  mass 

#include  <assert.h> 

#include  <f stream. h> 

#include  <stdio.h>  //  C header  file  for  sprintf 
#include  <iostream.h> 

#include  <iomanip.h> 

#include  <math.h> 

#include  "grid.h" 

#include  " adapt. h" 
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void  newADMmass(void)  { 

extern  double  DEL0,DEL1 ,DEL2,DEL3; 

extern  double  GALO.GALl ,GAL2,GAL3; 

extern  int  NMG,  MG,  PMAX; 

extern  double  BAREMl,  BAREM2,  PI; 

extern  double  J; 

extern  double  Y1,Y2,Z1,Z2; 

extern  double  PXl ,PX2,PZ1 ,PZ2; 

extern  double  SXl ,SX2,SY1 ,SY2,SZ1 ,SZ2; 

using  namespace  Parameters; 

//  note  that  i = 0 corresponds  to  the  finest  grid 

AGridBD  v[NMG+l] ; //  v[x]  goes  from  0 to  x-1 

AGrid3D  vmg[MG] ; //  v denotes  a previous  best  solution, 

//  except  at  smallest  level 
AGridBD  r[NMG];  //  r denotes  residual 
AGridBD  rmg[MG] ; 

AGridBD  s[NMG+l];  //  s denotes  source 
AGridBD  smg[MG] ; 

AGridBD  a[NMG] ; //  a denotes  a dummy  array  associated 

//  with  corrections 

AGridBD  amg[MG]; 

AGridBD  e[NMG+l];  //  e denotes  eui  error 
AGridBD  emg[MG] ; 

AGridBD  u[NMG+l] ; //  u denotes  the  best  solution 
AGridBD  umg  [MG] ; 

AGridBD  alpha [NMG+1]  ; //  alpha  and  beta  eire  geometrical 

//  quantities 

AGridBD  alphamg[MG]; 

AGridBD  beta [NMG+1]  ; 

AGridBD  betamg[MG] ; 

AGridBD  psi[NMG+l];  //  psi  = 1 + u,  u = vair  code  solves 

//  for,  psi  = correction  to  conformal 
//  factor 

AGridBD  uold[l] ; //  dummy  arrays  for  error  analysis 
AGridBD  unew[l] ; 

double  maxsize  = 1 . 0*pow(2,NMG)*SCALE;  //  ensures  largest 

//  grid  matches  with 
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//  smallest  grid 


forCint  i=0;i<MG;i++)  { //  allocate  memory  for 

//mg  arrays 

int  n=(int) (pow(2,MG-i)+l) ; //  must  be  defined  for 

//  i<MG 

vmg[i]  . reset (n,majcsize) ; 
rmg[i] . reset (n.maxsize) ; 
smg[i] . reset (n,maxsize) ; 
amg[i]  . reset (n,maocsize) ; 
umg[i] . reset (n.maxsize) ; 
emg[i]  . reset  (n,mcLxsize) ; 
alphamg[i] . reset (n,maxsize) ; 
betamgCi] . reset (n.maxsize) ; 


forCint  i=0; i<NMG; i++)  { 

int  n=(int) (pow(2,MG)+3) ; //  adds  2 grid  points  to 

//  non-mg  airrays 

v[i] ,reset(n,pow(2,i)*LEN) ; //  must  be  defined  for  i<NMG 

u[i] .reset(n,pow(2,i)*LEN) ; 

r[i] .reset(n,pow(2,i)*LEN) ; 

s [i] . reset (n, pow(2, i)*LEN) ; 

a[i] .reset(n,pow(2,i)*LEN) ; 

e[i] .reset(n,pow(2,i)*LEN) ; 

alpha [i] . reset (n,pow(2,i)*LEN) ; 

beta[i] .reset(n,pow(2,i)*LEN) ; 

psi[i] .reset(n,pow(2,i)*LEN) ; 

if(i==0)  { 

uoldEO] . reset (n,LEN) ; 
unew [0] . reset (n , LEN) ; 

} 


int  n=(int) (pow(2,MG)+l) ; 
v[NMG] .reset (n.rnaxsize) ; // 

u[NMG] .reset (n,maxsize) ; // 

e[NMG] . reset (n,maxsize) ; 

s [NMG] . reset (n .maxsize) ; // 
alpha [NMG]  . reset (n,meLxsize) ; 


v[NMG]  must  be  handled 
//  carefully 
u[NMG]  must  be  handled 
//  carefully 

//  due  to  different  # of  grid 
//  points 

from  one  level  to  the  next 


beta[NMG] . reset (n.maxsize) ; 
psi[NMG] . reset (n.maxsize) ; 
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double  uoldvalue,  unewvalue; 

double  uerror  = 1.0; 
int  counter  = 0; 


//  old  and  new  values  of  u at 
//  puncture  location 
//  initilize  to  eirbit.  value 
//  initilize  to  zero 


//  initialize  Ml 

Ml  = 2.0*X1*(  -1.0  + sqrt(  1.0  + 1 . 0/Xl+BAREMl  ) ); 
//  initialize  M2 

M2  = 2.0*X1*(  -1.0  + sqrt(  1.0  + 1 . 0/Xl*BAREM2  ) ); 
while (uerror>=10E-6)  { 


for (int  i=0; i<=NMG; i++)  { 

newbeta (alpha [i] .beta [i]) ; //  use  for  2 BH’s.  boosted 

//to  each  other,  with 
//  spin.  etc. . . 

} 


fillsource(s[0]  .v[0]  . alpha [0]  .beta[0]) ; //  source  info 

//  on  finest  grid 

for (int  p=0;p<PMAX;p++)  { //  p is  the  # of 

//  total  sweeps 

cout  <<  "Sweep  #"  « p+1  <<  endl; 
int  i ; 

for(i=0;  i<NMG;  i++)  { 
if(i!=0)  { 

zerointerior(u[i] ) ; //  this  takes  restricted 

//  interior  solution 

add(u[i]  .v[i]  .u[i] ) ; //  and  adds  it  to  the  exterior 

//  solution 

copy(v[i] .u[i] ) ; //  copies  solution  into  v 

} 


/♦t+^going  to  larger  levels************************/ 

//  relax  on  interior  n-3  grid  pts  only 
newrelax(u[i]  .v[i]  .s[i]  .alphaCi]  .beta[i]); 
newresidual(r[i]  .u[i]  .v[i]  .s[i]  .alphaCi]  .beta[i]); 

//  find  residual  everywhere 

symadaptrstrct(u[i+l] .u[i] ) ; //  restrict  solution  to 
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//  larger  level 

s [i+1]  . setZeroO  ; //  zero  out  source  on 

//  larger  level 

//  must  take  into  account  beta*(l+alpha) ~-6  term 
//  from  V. . . 

fillsource(s[i+l]  ,v[i+l]  ,alpha[i+l]  ,beta[i+l]) ; 
psi  [i+1]  . setZeroO  ; //  zero  out  temp  array 

newresidual(psi[i+l]  ,u[i+l]  ,v[i+l]  ,s[i+l]  , 

alpha[i+l] ,beta[i+l] ) ; //  find  source 

s [i+1]  . setZeroO  ; //  ensure  source  is  zeroed 

copyCs [i+1] ,psi [i+1] ) ; //  copy  source  from  temp 

//  array  in  to  s [i+1] 

psi  [i+1]  . setZeroO  ; //  zero  out  temp  array 

symresrstrct(s [i+1] ,r [i] ) ; //  fill  interior  dummy 

//  source  with  restricted 
//  residual 

symadaptrstrct (v [i+1] ,u [i] ) ; 

of  larger  levels**+******++*****+**/ 


} 

copy(smg[0] ,s[NMG] ) ; //  copy  info  into  mg  arrays 

copy(alphamg[0] , alpha [NMG] ) ; 

copy(betamg[0] .beta [NMG]) ; 

copy (umg [0] , u [NMG] ) ; 

copy (v [NMG] , u [NMG] ) ; 

copy (vmg [0] , v [NMG] ) ; 

/*************:)C*>(!!)C*/ 

//  Now  do  usual  multigrid  on  largest .finest  using  Robin 
//  conditions 

forCint  k=0;k<16;k++)  { 
for(i=0;  i<MG;i++)  { 

if(i!=0)  copy (vmg [i] .umg [i] ) ; //  copy  best  solution 

//  into  V 

if(i<MG-l)  { 

newrelcLx(umg[i]  .vmg[i]  .smg[i]  .alphamg[i]  .betamg[i] ) ; 
newresidual(rmg[i]  .umg[i]  .vmg[i]  .smg[i]  . 

alphamg[i]  .betamg[i] ) ; 

symrstrct(umg[i+l] .umg[i] ) ; //  rstrct  solution  to 

//  larger,  coarser 

symrstrct(smg[i+l] .rmg[i] ) ; //  rstct  residual  to 

//  largest,  coeirser 


symrstrct (alphamg [i+1] , alphamg [i] ) ; 
symrstrct (betamg [i+1] , betamg [i] ) ; 

} 

else  { 

copy(vmg[i]  ,iung[i] ) ; //  copy  best  solution  to  v 

forCint  j=l;  j<8;  j++)  { 

newrelcLx(umg[i]  ,vmg[i]  ,smg[i]  , alphamg  [i]  ,betamg[i]) 
newresidual(rmg[i]  ,umg[i]  ,vmg[i]  ,smg[i]  , 

alphamg [i] , betamg [i] ) ; 


} 


} 


//  reconstruct  the  solution  on  finer,  largest  grid 
for  (i=MG-l;  i>0;  i — ) { 

subtract  (emg[i]  ,umg[i]  ,vmg[i]  ) ; 

interp(amg[i-l] ,emg[i] ) ; //  interp  to  finer, 

//  to  amg 

update (umg [i-1] ,amg[i-l] ) ; //  update  solution 

newrelax(umg[i-l] ,vmg[i-l] ,smg[i-l] , 

alphamg [i-1] , betamg [i-1] ) ; 
newresidual(rmg[i-l] , umg [i-1] ,vmg[i-l] ,smg[i-l] , 
alphamg [i-1] , betamg [i-1] ) ; 


} 

} //end  for-k 


save 


/*****>(=5t:******=|t****/ 

//At  this  point  umg[0]  contains  the  best  soln.  on  largest, 
//  finest  grid 

/*********=t:**+:*)(c*’l'*/ 

/*******  method  tacks  on  best  solution  to  exterior, 

/*******  yields  same  results  as  correction  method 
copy (u [NMG] , umg [0] ) ; //  copy  solution 

subtract (e [NMG] ,u[NMG] ,v[NMG] ) ; //  determine  error  on 

//  largest  grid 

newresiduaKr  [NMG]  ,u[NMG]  ,v[NMG]  ,s[NMG]  , 

alpha [NMG] , bet a [NMG] ) ; 


for(i=NMG;i>0;i— ) { 

if (p!=PMAX-l)  zeroexterror (v [i] ) ; 

adaptinterp(a[i-l] ,e [i] ) ; //  adapt-interpolate  correction 

//  to  smaller  grid 

update(u[i-l] ,a[i-l] ) ; //  update  correction  on  smaller 
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//  grid 

psi  [i-1]  . setZeroO  ; //  zero  dummy  array 

adaptinterpCpsi [i-1] ,u[i] ) ; //  adaptinterp  large  solution 

//  into  small  array 

zeroexterior(u[i-l] ) ; //  zero  the  exterior  of  small 

//  solution 

zerointeriorsoln(psi[i-l] ) ; //  zero  the  interior  of 

//  large  solution 

updateCu [i-1] ,psi [i-1] ) ; //  update  small  solution  with 

//  exterior  solution 

psi  [i-1]  . setZeroO  ; 

newrelax(u[i-l]  ,v[i-l]  ,s[i-l]  ,alpha[i-l]  ,beta[i-l]) ; 
newresiduaKr [i-1]  ,u[i-l]  ,v[i-l]  ,s[i-l]  , 
alpha[i-l]  ,beta[i-l] ) ; 

subtractCe [i-1] ,u[i-l] ,v[i-l] ) ; //  determine  the  error 

} 

/**:(t*=)c+=ic=«=|(**end  of  exterior  solution  method**************/ 

/******calculate  errors************/ 
forCint  i=  0;i>=0;i — ) { 

cout  <<  endl  <<  "Calculating  error  for  interior  n-3  points 
on  level  " <<  i<<  " ..."  « endl  <<  endl; 
if(p==0)  { 

cout  <<  "residual  error  = "<<  norm(r[i])  <<  " for 
v-cycle  " « p+1  « endl  « endl; 
copy(uold[i]  ,u[i]  ) ; 

} 

else  { 

cout  « "residual  error  = "«  norm(r[i])  « " for 
v-cycle  " « p+1  « endl; 
subtract (unew[i] ,uold[i] ,u[i] ) ; 
cout  « "truncation  error  = " « norm(unew[i] ) 

« " for  v-cycle  " « p+1  « endl  « endl; 
copy(uold[i]  ,u[i] ) ; 

} 

} //  end  for  i 

/*******end  of  errors***********/ 


if (counter==0)  { 

uoldvalue  = getu(u[0]);  //  value  of  u at  puncture 

count er++; 
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else  { 

unewvalue  = getu(u[0]);  //  value  of  u at  puncture 

if (uoldvalue>unewvalue)  uerror  = uoldvalue  - unewvalue; 

//  the  above  ensures  error  is  > 0 

else  uerror  = unewvalue  - uoldvalue; 

uoldvalue  = unewvalue;  //  stores  new  value  of  u at 

//  puncture 

counter++; 


double  D = 2.0*X1; 

Ml  = D*(  -(1 ,0+uoldvalue) 

+ sqrt(  (1.0  + uoldvalue) * (1 . 0 + uoldvalue) 

+ 2.0*BAREM1/D  ) );  //  calculates  new  mass 

M2  = Ml; 

cout  <<  "Ml  = M2  = " « setprecision(12)  <<  Ml 

<<  " uerror  = " <<  uerror  <<  " counter  = " 

<<  counter  « endl; 

} //  end  while  - uerror 

forCint  i=0; i<=NMG; i++)  { //  determines  the  conformal 

//  factor  on  the  surfaces 
fillpsi(psi[i]  ,alpha[i]  ,u[i])  ; 

} 

forCint  i=0; i<=NMG; i++)  { 

cout  « "Calculating  Mass  for  Level  " « i « " « endl; 
n = psi  [i]  . sideXO  ; 
double  h = psi[i].hX(); 
if (psi[i] .LenX()<maxsize)  { 
forCint  k = n/2;k<n-2;k++)  { 

cout  <<  k « " " « h*(k-l)  <<  " " 

« setprecisiondS)  « Ml+M2+moment(psi  [i]  ,0,0,k) 

<<  endl ; 

} 

} 

else{ 

forCint  k = n/2+l;k<n;k++)  { 

cout  « "J  = " « J « " d = " « 2.0*X1 

<<  " ADM  Mass  = " <<  setprecision(16) 

« Ml+M2+moment(psi [i] ,0,0,n-l)  « endl; 
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cout  « k « " " « h*(k-l)  « " " 

« setprecision(16)  « Ml+M2+moment(psi [i] ,0,0,k) 
<<  endl; 

} 

} end  else  - i 
} end  for  - i 

chax  filename [50] ; 

sprintf  (filename,  "MG_y.ld-J_y.lf  .dat"  ,MG,  J)  ; 
save(f ilename,psi [NMG] ,u[0] ) ; 


The  program  setup  determines  all  of  the  other  system  parameters,  such  as  the 
hole  separation  distance: 

//setup. cxx  - changes  parameters  of  system 

#include  <assert.h> 

#include  <f stream. h> 

#include  <iostream.h> 

#include  <iomanip.h> 

#include  <math.h> 

#include  "grid.h" 

#include  "adapt. h" 

namespace  Parameters  { 


double 

Ml; 

double 

M2; 

double 

XI; 

double 

X2; 

double 

SCALE; 

double 

LEN; 

double 

PYl; 

double 

PY2; 

} 

void  setup (double  sepdist)  { 

using  namespace  Parameters; 

extern  int  MG; 
extern  double  J; 
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XI  = sepdist/2; 

X2  = XI;  //  punctures  are  equal  distances  away 

SCALE  = 2.0*X1;  //  SETS  SCALE  OF  ARRAYS 

LEN  = 1.0*(pow(2,MG)+2)/(pow(2,MG))*SCALE;  //  SETS  SIZE  OF 

//  NMG  ARRAYS 

PYl  = 1.0*J/(2.0*X1) ; 

PY2  = -1.0*J/(2.0*X1) ; //  J = j l+j2=dl*Pl+d2*P2  = 2*d*P. . . 

cout  « endl  « "MG  = " « MG  « " J = " « J « endl; 

cout  « "XI  = " « XI  « " X2  = " « X2  « endl; 

cout  « "SCALE  = " « SCALE  « " LEN  = " « LEN  « endl; 

cout  « "PI  = -P2  = " « PYl  « endl  « endl; 


The  program  newbeta  calculates  the  geometrical  quantities  a and  p,  used  to 
solve  the  Hamiltonian  constraint: 

//  newbetacxx  - Fills  alpha  and  beta  arrays  for  bineiry 
//  black  hole  system 
#include  <assert.h> 

#include  <f stream. h> 

#include  <iostream.h> 

#include  <iomanip.h> 

#include  <math.h> 

#include  "grid.h" 

#include  " adapt. h" 


extern 

const 

double 

Yl; 

//  Yl  = 

Y2  = 

0 

extern 

const 

double 

Y2; 

extern 

const 

double 

Zl; 

//  Zl  = 

Z2  = 

0 

extern 

const 

double 

Z2; 

extern 

const 

double 

PXl 

extern 

const 

double 

PX2 

extern 

const 

double 

PZl 

//  PZl 

= PZ2 

= 

0 

extern 

const 

double 

PZ2 

extern 

const 

double 

SXl 

//  SXl 

= SX2 

= 

SYl 

extern 

const 

double 

SX2 

extern 

const 

double 

SYl 

extern 

const 

double 

SY2 

extern 

const 

double 

SZl 

extern 

const 

double 

SZ2 

void  newbeta (AGridSDfe  alpha,  AGrid3D&  beta){ 
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using  namespace  Parameters;  //  looks  up  parameter  values 
int  i,j,k; 

int  n=alpha.  sideXO ; 
double  h = alpha.hXO; 
double  xl,yl,zl,rl; 
double  x2,y2,z2,r2; 
double  A; 

//cout  « "calculating  for  binary  black  holes!!!"  <<  endl; 

f or(i=l ; i<=n; i++)  { //  calculate  for  equatorial  plane 

for(j=l; j<=n; j++)  { 
k = 1; 

xl=(h*(i-l)-Xl) ; 
yl=(h*(j-l)-Yl); 
zl=(h*(k-l)-Zl) ; 
x2=(h*(i-l)+X2); 
y2=(h*(j-l)+Y2); 
z2=(h*(k-l)+Z2) ; 


rl=sqrt(xl*xl+yl*yl+zl*zl) ; 
r2=sqrt (x2*x2+y2*y2+z2*z2) ; 

A = Ml*r2+M2*rl; 

alpha(i,j,l)  = 2.0*rl*r2/(Ml*r2+M2*rl) ; 

//  this  expression  for  beta  is  the  same  as  below,  but 
//  zl  and  z2  = 0 in  two  important  places 
//  along  with  some  minor  simplification  to  get  rid  of 
//  diverging  terms 

beta(i,j,l)  = 

pow(A,-7)*(72*pow(r2,7)*rl*(2*pow(yl ,2)+pow(rl ,2) )*pow(PYl ,2) 
+(72*pow(r2,2)*pow(rl,2)*(2*x2*xl*pow(r2,2)*pow(rl,2) 
+2*x2*xl*pow(y2,2)*pow(rl,2)+2*x2*xl*pow(r2,2)*pow(yl,2) 
+2*x2*xl*pow (y2 , 2) *pow(y 1 , 2) +2*pow (y2 , 3) *pow (yl , 3) 

+y2*pow (y 1 , 3) *pow (r2 , 2) +pow (y 1 , 3) *y2*pow (z2 , 2) 

+2*z2*zl*pow(y2 , 2) *pow(yl , 2)+2*z2*zl*pow(r2 , 2) *pow(yl , 2) 
+yl*pow(zl ,2) *pow(y2 , 3) -y2*yl*pow (r2 , 2) *pow(zl , 2) 
+2*y2*yl*pow(z2,2)*pow(zl,2)+pow(y2,3)*yl*pow(rl,2) 
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+2*y2*yl*pow(r2 , 2) *pow (r 1 , 2) -y2*y l*pow (z2 , 2) *pow (r 1 , 2) 
+2*z2*zl*pow(y2 , 2) *pow(rl , 2) +2*z2*zl*pow(r2 , 2) *pow(r 1 , 2) 
+2*y2*z2*x2*yl*zl*xl) *PY2+288*SZl*xl*pow(r2 , 7) *rl 
+288*pow(r2,2) *pow(rl ,2)* (-2*xl*pow(y2,2) *pow(rl ,2) 

-xl*pow(z2 , 2) *pow(rl , 2)+xl*pow(r2 , 2) *pow(rl , 2) 

-2*xl*pow(y2 , 2) *pow(yl , 2) -xl*pow(yl , 2) *pow(z2 , 2) 
+xl*pow(yl,2)*pow(r2,2)+x2*z2*zl*pow(rl,2) 

+x2*z2*zl*pow(yl ,2)+y2*x2*yl*pow(rl ,2) 

+y2*x2*yl*pow(zl ,2)+2*y2*x2*pow(yl,3)-y2*z2*yl*zl*xl)*SZ2 
+72*pow(r2 , 2) *rl* (-3*PX2*rl*pow(y 1 , 3) *x2*pow (r2 , 2) 
+4*PX2*pow(rl , 3) *y2*xl*pow (r2 , 2) -2*PX2*pow(rl , 3) *pow(y2 , 3) *xl 
-3*PX2*r l*yl*x2*pow (r2 , 2) *pow (zl , 2) 

+4*PX2*rl*y2*xl*pow(r2 , 2) *pow (yl , 2)+4*PXl*pow(r2 , 5) *xl*yl 
-2*PX2*rl*z2*yl*zl*xl*pow(y2 , 2) +PX2*rl*pow(yl , 3) *x2*pow(z2 , 2) 
+2*PX2*pow(rl ,3)*y2*z2*x2*zl+2*PX2*rl*y2*z2*x2*zl*pow(yl ,2) 
+PX2*rl*yl*pow(zl , 2) *x2*pow(y2 , 2) 

-2*PX2*rl*pow(y2 ,3) *xl*pow(yl , 2) 

-2*PX2*pow(rl ,3)*y2*xl*pow(z2,2)-2*PX2*rl*zl*xl*yl*pow(z2,3) 
-PX2*pow (r 1,3) *y l*x2*pow(z2 , 2) +PX2*pow (r 1 , 3) *y l*x2*pow (y2 ,2) 
-2*PX2*rl*xl*pow(yl , 2) *y2*pow (z2 , 2) 
+4*PX2*rl*z2*yl*zl*xl*pow(r2,2) 
+2*PX2*rl*yl*x2*pow(z2,2)*pow(zl ,2) 

+2*PX2*r l*pow (y 1 , 3) *x2*pow (y2 , 2) ) ) *PY1 

+72*pow (r 1 , 7 ) *r2* (2*pow (y2 , 2) +pow (r2 , 2) ) *pow (PY2 , 2) 

+ (288*pow (r2 , 2) *pow(rl , 2) * (2*pow(y2 , 3) *xl*yl 
+y2*xl*yl*pow(r2 , 2) 

+y2*xl*yl*pow(z2 , 2)+xl*zl*z2*pow(r2 , 2)+xl*zl*z2*pow(y2 ,2) 
-2*x2*pow (y2 , 2) *pow (yl , 2) -2*x2*pow (r2 , 2) *pow (y 1 , 2) 

-x2*pow(zl , 2) *pow(r2 , 2) -pow(zl , 2) *x2*pow(y2 , 2) -y2*z2*x2*yl*zl 
+x2*pow (r2 , 2) *pow (r 1 , 2) +x2*pow (y2 , 2) *pow (r 1 , 2) ) *SZ1 
+288=t=SZ2*x2*pow(rl , 7)  *r2-72*r2*pow(rl , 2)  * ( 

-PXl*pow(r2 , 3) *y2*xl*pow(yl , 2)+2*PXl*r2*pow(yl , 3) *x2*pow (y2 , 2) 
+2*PXl*r2*y2*z2*x2*zl*pow(yl , 2) -2*PXl*r2*z2*yl*zl*xl*pow(y2 , 2) 
-2*PXl*r2*y2*xl*pow(z2 , 2) *pow(zl , 2) 

-4*PXl*r2*pow (r 1 , 2) *yl*x2*pow (y2 , 2) 

-4*PXl*r2*pow (r 1 , 2) *y2*z2*x2*zl 
+3*PXl*r2*pow(rl , 2) *pow(y2 , 3) *xl 
+3*PXl*r2*pow(rl ,2)*y2*xl*pow(z2,2) 

-PXl*r2*xl*pow(zl , 2) *pow(y2 , 3) -2*PXl*r2*pow(y2 , 3) *xl*pow(yl , 2) 
-4*PX2*pow(rl , 5) *y2*x2+PXl*pow(r2 , 3) *y2*xl*pow(zl , 2) 
+2*PXl*pow(r2,3)*pow(yl,3)*x2+2*PXl*pow(r2,3)*yl*x2*pow(zl,2) 
-PXl*r2*xl*pow(yl ,2) *y2*pow(z2 ,2) -2*PXl*pow(r2,3) *z2*yl*zl*xl 
-4*PXl*pow(r2 , 3)  *pow(rl , 2)  *yl*x2+2=i'PXl=i=r2*y2*z2*x2*pow(zl , 3) 
+2*PXl*r2*yl*pow(zl , 2) *x2*pow(y2 , 2) ) ) *PY2 


+288*pow(r2 , 7) *rl*pow(SZl , 2) 

+ (576*pow(r2 , 2) *pow (rl , 2) * (4*pow(y2 , 2) *pow(yl , 2) 

+2*pow (yl , 2) *pow (z2 , 2) -2*pow (yl , 2) *pow(r2 , 2) 

+2*pow (y2 , 2) *pow (zl , 2) +pow (zl , 2) *pow (z2 , 2) -pow(zl , 2) *pow (r2 , 2) 
-2*pow (y2 , 2) *pow (r 1 , 2) -pow (z2 , 2) *pow(r 1 , 2) +pow(r2 , 2) *pow (r 1 , 2) 
+4*y2*x2*xl*yl+z2*x2*xl*zl+y2*z2*yl*zl)*SZ2 
-288*pow(r2 , 2) *rl* (-2*PX2*rl*y2*pow(yl , 2) *pow(z2 , 2) 
-PX2*rl*x2*yl*xl*pow(z2 , 2) +4*PX2*pow(r2 , 2) *rl*y2*pow (yl , 2) 
-PX2*r l*pow (zl , 2) *pow (y2 , 3) +pow (y2 , 3) *pow (r 1 , 3) *PX2 
+2*PX2*pow (r2 ,2) *r l*y2*pow (zl , 2) -2*PX2*pow (r2 , 2) *pow (r 1 , 3) *y2 
-PX2*rl*xl*zl*y2*z2*x2-2*PX2*rl*pow(yl,2)*pow(y2,3) 

+PXl*pow(r2 , 5) *yl-PX2*r l*y2*pow(zl , 2) *pow (z2 , 2) 
+2*PX2*pow(r2,2)*rl*yl*zl*z2-PX2*rl*yl*zl*z2*pow(y2,2) 
-PX2*rl*yl*zl*pow(z2 , 3) -2*PX2*rl*x2*yl*xl*pow(y2 , 2) 
+3*PX2*pow(r2 , 2) *rl*x2*yl*xl+pow(z2 , 2) *y2*pow(rl , 3) *PX2) ) *SZ1 
+288*pow(r 1 , 7 ) *r2*pow(SZ2 , 2) -288*r2*pow (r 1 , 2) * ( 
-2*PXl*r2*y2*x2*xl*pow(yl , 2) -2*PXl*pow(r2 , 3) *pow(rl , 2) *yl 
-2*PXl*r2*pow(yl ,3)*pow(y2,2)-PXl*r2*y2*x2*xl*pow(zl ,2) 
-PXl*r2*y2*z2*zl*pow(yl,2)+PXl*pow(r2,3)*yl*pow(zl,2) 
+2*PXl*r2*pow(rl , 2) *zl*z2*y2-PXl*r2*pow(yl , 3) *pow(z2 , 2) 
+PX2*pow(rl , 5) *y2+3*PXl*r2*pow(rl , 2) *y2*x2*xl 
-PXl*r2*y2*z2*pow(zl , 3) -PXl*r2*x2*z2*yl*zl*xl 
+PXl*pow(r2 , 3) *pow(yl , 3)+4*PXl*r2*pow(rl , 2) *yl*pow(y2 , 2) 
+2*PXl*r2*pow(rl , 2) *yl*pow (z2 , 2) 

-2*PXl*r2*yl*pow(y2 , 2) *pow (zl , 2) 

-PXl*r2*yl*pow(z2 , 2) *pow(zl , 2) ) *SZ2 
+72*r2*rl*(-4*PXl*pow(r2,3)*rl*PX2*z2*zl*pow(yl,2) 
-4*PXl*pow(r2 , 3) *rl*PX2*y2*yl*pow (zl , 2) 

-3*PXl*pow (r2 ,3) *rl*PX2*x2*xl*pow (yl , 2) 

-4*PXl*r2*pow(rl , 3)  *PX2*y2*yl=i'pow(z2 , 2) 
+2*PXl*r2*rl*PX2*pow(z2,3)*pow(zl ,3) 

-3*PXl*r2*pow (r 1 , 3) *PX2*x2*xl*pow (z2 , 2) 

-3*PXl*r2*pow(rl , 3) *PX2*x2*xl*pow(y2 , 2) 

-2*pow(PXl , 2) *pow(r2 ,6) *pow(zl ,2) 

+PXl*r2*rl*PX2*xl*pow(zl , 2) *x2*pow(y2 , 2) 
+2*PXl*r2*rl*PX2*x2*xl*pow(z2 ,2)*pow(zl ,2) 
+2*PXl*r2*rl*PX2*pow(yl , 3) *y2*pow(z2 , 2) 

+8*PXl*pow(r2,3)*pow(rl ,3)*PX2*y2*yl 
-4*PXl*pow(r2,3)*rl*PX2*z2*pow(zl ,3) 

-4*PXl*pow (r2 , 3) *r l*PX2*y2*pow (yl , 3) 

+8*PXl*pow(r2 , 3) *pow(rl , 3) *PX2*z2*zl 
+PXl*r2*rl*PX2*xl*pow(yl,2)*x2*pow(z2,2) 

+2*PXl*r2*r l*PX2*pow (zl , 3) *z2*pow (y2 , 2) 

-4*PXl*r2*pow(rl ,3) *PX2*z2*zl*pow(y2 , 2) 
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+2*PXl*r2*rl*PX2*x2*xl*pow (y2 , 2) *pow(yl , 2) 
+2*PXl*r2*rl*PX2*yl*pow(zl , 2) *pow (y2 , 3) 
+2*PXl*r2*rl*PX2*zl*pow(yl ,2)*pow(z2,3) 
-3*PXl*pow(r2,3)*rl*PX2*x2*xl*pow(zl,2) 
+2*PXl*r2*rl*PX2*y2*yl*pow(z2 , 2) *pow(zl , 2) 
-4*PXl*r2*pow(rl , 3) *PX2*pow(z2 , 3) *zl 
+6*PXl*pow(r2 , 3) *pow(rl , 3) *PX2*x2*xl 
-2*pow(PXl ,2)*pow(r2,6)*pow(yl ,2) 
+2*PXl*r2*rl*PX2*z2*zl*pow(y2 , 2) *pow(yl , 2) 
+2*PXl*r2*rl*PX2*pow(y2,3)*pow(yl,3) 
+2*PXl*r2*rl*PX2*y2*z2*x2*yl*zl*xl 
-4*PXl*r2*pow (r 1 , 3) *PX2*pow (y2 , 3) *yl 
+3*pow (PX2 , 2) *pow(rl , 6) *pow (r2 , 2) 
+3*pow(PXl , 2) *pow(r2 ,6) *pow(rl ,2) 

-2*pow (PX2 , 2) *pow(rl ,6) *pow (z2 , 2) 
-2*pow(PX2 , 2) *pow(rl , 6) *pow(y2 , 2) ) ) ; 

} 

} 


for(i=l;i<=n;i++)  { // 

for(j=l; j<=n; j++)  { 
f or(k=2;k<=n;k++)  { 

xl=(h*(i-l)-Xl) ; 
yl=(h*(j-l)-Yl); 
zl=(h*(k-l)-Zl); 
x2=(h*(i-l)+X2) ; 
y2=(h*(j-l)+Y2) ; 
z2=(h*(k-l)+Z2); 


calculate  for  everywhere  else 


rl=sqrt(xl*xl+yl*yl+zl*zl) ; 
r2=sqrt (x2*x2+y2*y2+z2*z2) ; 

A = Ml*r2+M2*rl; 

alpha(i,j,k)  = 2.0*rl*r2/(Ml*r2+M2*rl) ; 
beta(i,j,k)  = 

pow(A,-7)*(72*pow(r2,7)*rl*(2*pow(yl,2)+pow(rl,2))*pow(PYl,2) 
+ (72*pow(r2 , 2) *pow(rl , 2) * (2*x2*xl*pow(r2 , 2) *pow(rl , 2) 
+2*x2*xl*pow(y2 , 2) *pow(rl , 2)+2*x2*xl*pow(r2 , 2) *pow(yl , 2) 
+2*x2*xl*pow (y2 , 2) *pow (yl , 2) +2*pow (y2 , 3) *pow (yl , 3) 
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+y2*pow(yl,3)*pow(r2,2)+pow(yl,3)*y2*pow(z2,2) 
+2*z2*zl*pow(y2,2)*pow(yl,2)+2*z2*zl*pow(r2,2)*pow(yl,2) 
+yl*pow(zl , 2) *pow(y2 , 3) -y2*yl*pow(r2 , 2) *pow(zl , 2) 
+2*y2*yl*pow(z2,2)*pow(zl,2)+pow(y2,3)*yl*pow(rl,2) 
+2*y2*yl*pow(r2 , 2) *pow(rl , 2) -y2*yl*pow(z2 , 2) *pow(rl , 2) 
+2*z2*zl*pow (y2 , 2) *pow (rl , 2) +2*z2*zl*pow(r2 , 2) *pow (r 1 , 2) 
+2*y2*z2*x2*yl*zl*xl)*PY2+288*SZl*xl*pow(r2,7)*rl 
+288*pow(r2 ,2) *pow(rl , 2) * (-2*xl*pow(y2 , 2) *pow(rl , 2) 

-xl*pow(z2 , 2) *pow(rl , 2)+xl*pow(r2 ,2) *pow(rl , 2) 

-2*xl*pow(y2 , 2) *pow(yl , 2) -xl*pow(yl , 2) *pow(z2 , 2) 

+xl*pow(yl , 2) *pow(r2 , 2) +x2*z2*zl*pow(rl , 2)+x2*z2*zl*pow(yl , 2) 
+y2*x2*yl*pow(rl,2)+y2*x2*yl*pow(zl,2)+2*y2*x2*pow(yl,3) 
-y2*z2*yl*zl*xl) *SZ2+72*pow(r2 , 2) *rl* ( 

-3*PX2*rl*pow (y 1 , 3) *x2*pow (r2 , 2) 

+4*PX2*pow(rl , 3) *y2*xl*pow(r2 , 2) -2*PX2*pow(rl , 3) *pow(y2 , 3) *xl 
-3*PX2*r l*y l*x2*pow(r2 , 2) *pow (zl , 2) 

+4*PX2*rl*y2*xl*pow(r2 , 2) *pow(yl , 2) +4*PXl*pow(r2 , 5) *xl*yl 
-2*PX2*rl*z2*yl*zl*xl*pow (y2 , 2) +PX2*r l*pow(yl , 3) *x2*pow(z2 , 2) 
+2*PX2*pow(rl ,3)*y2*z2*x2*zl+2*PX2*rl*y2*z2*x2*zl*pow(yl ,2) 
+PX2*rl*yl*pow(zl , 2) *x2*pow(y2 , 2) 

-2*PX2*rl*pow(y2 , 3) *xl*pow (yl , 2) 

-2*PX2*pow(rl ,3) *y2*xl*pow(z2 , 2) -2*PX2*rl*zl*xl*yl*pow(z2,3) 
-PX2*pow(rl ,3) *yl*x2*pow(z2 ,2)+PX2*pow(rl , 3) *yl*x2*pow(y2 , 2) 
-2*PX2*rl=t=xl*pow(yl , 2)  *y2*pow(z2 , 2) 

+4*PX2*rl*z2*yl*zl*xl*pow (r2 , 2) 

+2*PX2*rl*yl*x2*pow(z2 , 2) *pow(zl , 2) 

+2*PX2*r l*pow(y 1 , 3) *x2*pow (y2 , 2) ) ) *PY 1 
+72*pow (r 1 , 7) *t2* (2*pow (y2 , 2) +pow (r2 , 2) ) *pow (PY2 , 2) 
+(288*pow(r2 , 2) *pow(rl , 2) * (2*pow(y2 , 3) *xl*yl 
+y2*xl*yl*pow(r2 , 2)+y2*xl*yl*pow(z2 , 2)+xl*zl*z2*pow(r2 , 2) 
+xl*zl*z2*pow(y2 , 2) -2*x2*pow(y2 , 2) *pow(yl , 2) 

-2*x2*pow (r2 , 2) *pow (y 1 , 2) -x2*pow (z 1 , 2) *pow (r2 , 2) 

-pow (zl , 2) *x2*pow (y2 , 2) -y2*z2*x2*yl*zl+x2*pow (r2 , 2) *pow (r 1 , 2) 
+x2*pow(y2 ,2) *pow(rl , 2) ) *SZl+288*SZ2*x2*pow(rl , 7) *r2 
-72*r2*pow (rl , 2) * (-PXl*pow (r2 , 3) *y2*xl*pow (y 1 , 2) 

+2*PXl*r2*pow (y 1 , 3) *x2*pow (y2 , 2) 

+2*PXl*r2*y2*z2*x2*zl*pow(yl ,2) 

-2*PXl*r2*z2*yl*zl*xl*pow(y2 , 2) 

-2*PXl*r2*y2*xl*pow (z2 , 2) *pow(zl , 2) 

-4*PXl*r2*pow(rl ,2)*yl*x2*pow(y2,2) 

-4*PXl*r2*pow(rl ,2)*y2*z2*x2*zl 
+3*PXl*r2*pow(rl , 2) *pow(y2 , 3) *xl 
+3*PXl*r2*pow(rl , 2) *y2*xl*pow (z2 , 2) 
-PXl*r2*xl*pow(zl,2)*pow(y2,3) 
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-2*PXl*r2*pow(y2 ,3) *xl*pow (yl , 2) -4*PX2*pow (r 1 , 5) *y2*x2 
+PXl*pow(r2,3)*y2*xl*pow(zl,2)+2*PXl*pow(r2,3)*pow(yl,3)*x2 
+2*PXl*pow(r2 ,3) *yl*x2*pow(zl , 2) 

-PXl*r2*xl*pow(yl , 2) *y2*pow(z2 , 2) 

-2*PXl*pow(r2,3)*z2*yl*zl*xl-4*PXl*pow(r2,3)*pow(rl,2)*yl*x2 
+2*PXl*r2*y2*z2*x2*pow(zl ,3) 

+2*PXl*r2*yl*pow(zl , 2) *x2*pow(y2 , 2) ) ) *PY2 
+288*pow(r2,7)*(rl-zl)*(rl+zl)/rl*pow(SZl,2) 

+ (576*pow(r2 , 2) *pow(rl , 2) * (4*pow(y2 , 2) *pow(yl , 2) 

+2*pow(yl , 2) *pow(z2 , 2) -2*pow(yl , 2) *pow(r2 , 2) 
+2*pow(y2,2)*pow(zl,2)+pow(zl,2)*pow(z2,2) 

-pow (z 1 , 2) *pow (r2 , 2) -2*pow (y2 , 2) *pow (r 1 , 2) 

-pow (z2 , 2) *pow (r 1 , 2) +pow (r2 , 2) *pow(r 1 , 2) +4*y2*x2*xl*yl 
+z2*x2*xl*zl+y2*z2*yl*zl) *SZ2 

-288*pow(r2 , 2) *rl* (-2*PX2*rl*y2*pow(yl , 2) *pow(z2 , 2) 
-PX2*rl*x2*yl*xl*pow(z2,2)+4*PX2*pow(r2,2)*rl*y2*pow(yl,2) 
-PX2*r l*pow (zl , 2) *pow(y2 , 3) +pow (y2 , 3) *pow (r 1 , 3) *PX2 
+2*PX2*pow(r2 , 2) *rl*y2*pow(zl , 2) 
-2*PX2*pow(r2,2)*pow(rl,3)*y2-PX2*rl*xl*zl*y2*z2*x2 
-2*PX2*r l*pow(yl , 2) *pow(y2 , 3) +PXl*pow(r2 , 5) *yl 
-PX2*rl*y2*pow(zl,2)*pow(z2,2)+2*PX2*pow(r2,2)*rl*yl*zl*z2 
-PX2*rl*yl*zl*z2*pow(y2 , 2) -PX2*rl*yl*zl*pow(z2 , 3) 
-2*PX2*rl*x2*yl*xl*pow(y2,2)+3*PX2*pow(r2,2)*rl*x2*yl*xl 
+pow(z2 ,2) *y2*pow(rl , 3) *PX2) ) *SZ1 
+288*pow(rl , 7) * (r2-z2) * (r2+z2) /r2*pow(SZ2 , 2) 

-288*r2*pow(rl , 2) * (-2*PXl*r2*y2*x2*xl*pow (yl ,2) 

-2*PXl*pow(r2 ,3) *pow(rl , 2) *yl-2*PXl*r2*pow(yl ,3) *pow (y2 , 2) 

-PXl*r2*y2*x2*xl*pow(zl,2)-PXl*r2*y2*z2*zl=t=pow(yl,2) 

+PXl*pow(r2,3)*yl*pow(zl,2)+2*PXl*r2*pow(rl,2)*zl*z2*y2 

-PXl*r2*pow (yl , 3) *pow(z2 , 2) +PX2*pow (r 1 , 5) *y2 

+3*PXl*r2*pow(rl,2)*y2*x2*xl-PXl*r2*y2*z2*pow(zl,3) 

-PXl*r2*x2*z2*yl*zl*xl+PXl*pow(r2,3)*pow(yl,3) 

+4*PXl*r2*pow(rl , 2) *yl*pow(y2 , 2) 

+2*PXl*r2*pow(rl , 2) *yl*pow(z2 , 2) 

-2*PXl*r2*y l*pow (y2 , 2) *pow (zl , 2) 

-PXl*r2*yl*pow(z2 , 2) *pow(zl , 2) ) *SZ2 

+72*r2*rl*(-4*PXl*pow(r2,3)*rl*PX2*z2*zl*pow(yl,2) 

-4*PXl*pow(r2,3)*rl*PX2*y2*yl*pow(zl,2) 

-3*PXl*pow(r2 ,3) *rl*PX2*x2*xl*pow(yl , 2) 

-4*PXl*r2*pow(rl , 3) *PX2*y2*yl*pow (z2 , 2) 
+2*PXl*r2*rl*PX2*pow(z2 , 3) *pow(zl , 3) 

-3*PXl*r2*pow (r 1 , 3) *PX2*x2*xl*pow (z2 , 2) 

-3*PXl*r2*pow (r 1 , 3) *PX2*x2*xl*pow (y2 , 2) 

-2*pow(PXl ,2)*pow(r2,6)*pow(zl ,2) 
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+PXl*r2*rl*PX2*xl*pow(zl ,2) *x2*pow(y2 , 2) 
+2+PXl*r2*rl*PX2*x2*xl*pow (z2 , 2) *pow(zl , 2) 
+2*PXl*r2*rl*PX2*pow(yl ,3) *y2*pow(z2, 2) 
+8*PXl*pow(r2,3)*pow(rl,3)*PX2*y2*yl 
-4*PXl*pow(r2,3)*rl*PX2*z2*pow(zl,3) 
-4*PXl*pow(r2,3)*rl*PX2*y2*pow(yl,3) 
+8*PXl*pow(r2 , 3) *pow(rl , 3) *PX2*z2*zl 
+PXl*r2*rl*PX2*xl*pow(yl , 2) *x2*pow(z2 , 2) 
+2*PXl*r2*rl*PX2*pow(zl ,3) *z2*pow(y2 , 2) 
-4*PXl*r2*pow(rl , 3) *PX2*z2*zl*pow (y2 , 2) 
+2*PXl*r2*rl*PX2*x2*xl*pow(y2 , 2) *pow (yl , 2) 
+2*PXl*r2*rl*PX2*yl*pow(zl , 2) *pow(y2 , 3) 
+2*PXl*r2*rl*PX2*zl*pow(yl ,2) *pow(z2,3) 
-3*PXl*pow(r2,3)*rl*PX2*x2*xl*pow(zl ,2) 
+2*PXl*r2*rl*PX2*y2*yl*pow(z2,2)*pow(zl ,2) 
-4*PXl*r2*pow(rl , 3) *PX2*pow(z2 ,3) *zl 
+6*PXl*pow (r2 ,3) *pow (r 1 , 3) *PX2*x2*xl 
-2*pow(PXl ,2)*pow(r2,6)*pow(yl ,2) 
+2*PXl*r2*rl*PX2*z2*zl*pow (y2 , 2) *pow(yl , 2) 
+2*PXl*r2*r l*PX2*pow (y2 ,3) *pow(yl , 3) 
+2*PXl*r2*rl*PX2*y2*z2*x2*yl*zl*xl 
-4*PXl*r2*pow (r 1 , 3) *PX2*pow(y2 , 3) *yl 
+3*pow(PX2 , 2) *pow (r 1 , 6) *pow(r2 , 2) 
+3*pow(PXl , 2) *pow(r2 , 6) *pow(r 1 , 2) 

-2*pow (PX2 , 2) *pow (r 1 , 6) *pow (z2 , 2) 

-2*pow (PX2 , 2) *pow (r 1 , 6) *pow (y2 , 2) ) ) ; 

} 

} 

} 


The  program  newrelax  is  the  main  relaxation  scheme  for  the  nonlinear  Hamilto- 
nian constraint.  The  code  only  relaxes  on  the  interior  points  of  adaptive  levels,  except 
the  largest  adaptive  and  all  mnltigrid  levels,  in  which  the  Robin  boundary  condition 
is  employed. 

//  newrelcix  - galerkin  (with  symmetry)  relaxation  scheme  for 
//  nlamg  code 

//  using  galerkin  operator  on  *ALL*  levels 

//  makes  no  assumption  of  solution  u being  small 

#include  <assert.h> 

#include  <f stream. h> 

#include  <iostream.h> 


#include  <iomanip.h> 
#include  <math.h> 
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#include  "grid.h" 

#include  " adapt. h" 

#define  SHOW(a)  " "«#a«"  = "«a«"  " 


void  newrelax(AGrid3D&  u,  AGrid3D&  v,  AGrid3D&  s, 

AGrid3D&  alpha,  AGrid3D&  beta) 


extern  double  DELO,  DELI,  DEL2,  DEL3; 
extern  double  GALO,  GALl,  GAL2,  GAL3; 
extern  int  MG; 
extern  double  LEN; 

int  p; 

int  n = u. sideXO ; 
double  h=u.hX(); 
double  D = DEL0+2.0/(n-l) ; 
double  drdu,ures,vres,nl; 

int  pmaxsweep  =4;  //  sets  # of  relaxation  sweeps 
int  N; 

if (n==pow(2,MG)+3)  { //  for  non-mg  levels 

N = n-2; 

} 

else  { //  for  mg  levels 

N = n; 

} 


for(p=l;p<=pmcLxsweep;p++)  { 

//  note;  pass  = (i+j+k)%2  if  pass=l  ->  red;  if  pass=0  ->  black 
forCint  pass  =1;  pass  >=  0;  pass — ) { 
forCint  i=l;i<N;i++)  { 
forCint  j=l;  j<N;j++)  { 
forCint  k=l;k<N;k++)  { 

if ( (i+j+k)7,2 !=pass)  continue; 
drdu  = -GAL0/(h*h) 

+7*alpha(i, j ,k)*beta(i, j ,k)*pow(l+alpha(i, j ,k) 
+alpha(i, j ,k)*u(i, j ,k) ,-8) ; 
ures  = 1.0/(h*h)*(GALl*(u.sy(i+l,j ,k) 
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+u.sy(i-l,j,k)+u.sy(i,j+l,k)+u.sy(i,j-l,k) 
+u.sy(i,  j ,k+l)+u.sy(i,  j ,k-D) 
+GAL2*(u.sy(i+l, j+l,k)+u.sy(i+l, j-l,k) 
+u.sy(i-l, j+l,k)+u.sy(i-l, j-l,k) 

+u.sy(i, j+l,k+l)+u.sy(i, j-l,k+l) 
+u.sy(i+l,j ,k+l)+u.sy(i-l, j ,k+l) 
+u.sy(i,j+l,k-l)+u.sy(i, j-l,k-l) 
+u.sy(i+l,j ,k-l)+u.sy(i-l, j ,k-l)) 
+GAL3*(u.sy(i+l, j+l,k+l)+u.sy(i-l, j+l,k+l) 
+u.sy(i+l, j-l,k+l)+u.sy(i-l, j-l,k+l) 
+u.sy(i+l, j+l,k-l)+u.sy(i-l, j+l,k-l) 
+u.sy(i+l, j-l,k-l)+u.sy(i-l, j-l,k-l))) ; 
vres  = 1.0/(h*h)*(GAL0*v.sy(i, j ,k) 
+GALl*(v.sy(i+l, j ,k)+v.sy(i-l, j ,k) 

+v.sy(i, j+l,k)+v.sy(i, j-l,k) 

+v.sy(i, j ,k+l)+v.sy(i, j ,k-l)) 
+GAL2*(v.sy(i+l, j+l,k)+v.sy(i+l, j-l,k) 
+v.sy(i-l, j+l,k)+v.sy(i-l, j-l,k) 

+v.sy(i, j+l,k+l)+v.sy(i, j-l,k+l) 
+v.sy(i+l, j ,k+l)+v.sy(i-l, j ,k+l) 
+v.sy(i, j+l,k-l)+v.sy(i, j-l,k-l) 
+v.sy(i+l,  j ,k-l)+v.sy(i-l,  j ,k-D) 
+GAL3*(v.sy(i+l, j+l,k+l)+v.sy(i-l, j+l,k+l) 
+v.sy(i+l, j-l,k+l)+v.sy(i-l, j-l,k+l) 
+v.sy(i+l, j+l,k-l)+v.sy(i-l, j+l,k-l) 
+v.sy(i+l, j-l,k-l)+v.sy(i-l, j-l,k-l))) 
+beta(i, j ,k)*pow(l+alpha(i, j ,k) 

+alpha(i, j ,k)*v.sy(i, j ,k) ,-7) ; 
nl  = -beta(i, j ,k)*pow(l+alpha(i, j ,k) 

+alpha(i, j ,k)*u(i, j ,k) ,-7) 

*(1 .0+7*alpha(i, j ,k)*u. sy(i , j ,k)/(l 

+alpha(i, j ,k)+alpha(i, j ,k)*u(i, j ,k))) ; 
u(i,j,k)  = 1.0/drdu*(-s(i, j ,k)  + ures 
- vres  - nl) ; 

} //  end  for-k 
} //  end  for-j 
} //  end  for-i 

//  Outermost  corner,  edges,  and  faces 
if (n<=pow(2,MG)+l)  { 

//  Outermost  corner 
if(pass==l)  { 

drdu  = D/(h*h) 

+7*alpha (n , n , n) *bet a (n , n , n) *pow ( 1+alpha (n , n , n) 


+alpha(n,n,n)*u(n,n,n) ,-8) ; 
ures  = 1.0/(h*h)*(2*u.sy(n-l,n,n) 

+2*u.sy(n,n-l,n)+2*u.  sy(n,n,n-D)  ; 
vres  = 1.0/(h*h)*(2*v.sy(n-l,n,n)+2*v.sy(n,n-l,n) 
+2*v.sy(n,n,n-l)-D*v.sy(n,n,n)) 

+beta (n , n , n) *pow ( 1+alpha (n , n , n) 

+alpha(n,n,n)*v. sy(n,n,n) ,-7) ; 
nl  = -beta(n,n,n)*pow(l+alpha(n,n,n) 
+alpha(n,n,n)*u(n,n,n) ,-7) 

* ( 1 . 0+7*alpha (n , n , n) *u . sy (n , n , n) / ( 1 
+alpha (n , n , n) +alpha (n , n , n) *u (n , n , n) ) ) ; 
u(n,n,n)  = 1.0/drdu*(-s(n,n,n)  + ures  - vres  - nl) ; 

} //end  if  corner 


//  Edges 

forCint  i=l;i<n;i++)  { 

if ((n+n+i)"/,2 ! =pass)  continue; 

double  S = (1-1 . 0*(i-l)/(n-l) ) ; //  S for  subtract 
double  A = (1+1 .0*(i-l)/(n-l)) ; //  A for  add 

drdu  = D/(h+h) 

+7*alpha(i,n,n)*beta(i,n,n)*pow(l+alpha(i,n,n) 
+alpha(i,n,n)*u(i,n,n) ,-8) ; 
ures  = 1.0/(h*h)*(2*u.sy(i,n-l,n) 
+2*u.sy(i,n,n-l)+S*u.sy(i+l,n,n)+A*u.sy(i-l,n,n)) 
vres  = 1.0/(h*h)*(2*v.sy(i,n-l,n) 

+2+v.sy(i,n,n-l)+S*v.sy(i+l,n,n)+A*v.sy(i-l,n,n) 

-D*v.sy(i,n,n)) 

+bet a ( i , n , n) *pow ( 1+alpha ( i , n , n) 
+alpha(i,n,n)*v.sy(i,n,n) ,-7) ; 
nl  = -beta(i ,n,n)*pow(l+alpha(i ,n,n) 
+alpha(i,n,n)+u(i,n,n) ,-7) 

* ( 1 . 0+7 + alpha (i,n,n)*u.sy(i,n,n)/(l 
+alpha(i,n,n)+alpha(i,n,n)+u(i,n,n))) ; 
u(i,n,n)  = 1.0/drdu*(-s(i,n,n)  + ures  - vres  - nl) ; 

drdu  = D/ (h*h) 

+7+alpha(n , i , n) *beta(n , i , n) +pow ( 1+alpha (n , i , n) 
+alpha(n,i,n)*u(n,i,n) ,-8) ; 
ures  = 1 . 0/(h+h) ♦ (2+u. sy(n-l , i ,n) 
+2*u.sy(n,i,n-l)+S*u.sy(n,i+l,n)+A+u.sy(n,i-l,n)) 
vres  = 1.0/(h*h)+(2*v.sy(n-l,i,n) 
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+2*v.sy(n,i.n-l)+S*v.sy(n,i+l,n)+A*v.sy(n,i-l,n) 

-D*v.sy(n,i,n)) 

+bet a (n , i , n) *pow ( 1+alpha (n , i , n) 
+alpha(n,i,n)*v.sy(n,i,n) ,-7) ; 
nl  = -beta(n,i,n)*pow(l+alpha(n,i,n) 

+alpha(n, i ,n)*u(n, i ,n) ,-7) 

* ( 1 . 0+7*alpha (n , i , n) *u . sy (n , i , n) / ( 1 
+alpha (n , i , n) +alpha (n , i , n) *u (n , i , n) ) ) ; 
u(n,i,n)  = 1 . 0/drdu*(-s(n, i ,n)  + ures  - vres  - nl) ; 

drdu  = D/(h*h) 

+7*alpha (n , n , i) *beta (n , n , i ) *pow ( 1+alpha (n , n , i) 
+alpha(n,n,i)+u(n,n,i) ,-8) ; 
ures  = 1.0/(h*h)+(2*u.sy(n-l,n,i) 

+2*u.sy(n,n-l,i)+S*u.sy(n,n,i+l)+A*u.sy(n,n,i-D) ; 
vres  = 1.0/(h+h)+(2*v.sy(n-l,n,i) 

+2*v . sy(n,n-l , i)+S*v. sy(n,n, i+l)+A*v. sy(n,n, i-1) 
-D*v. sy(n,n,i)) 

+bet a (n , n , i ) +pow ( 1+alpha (n , n , i ) 
+alpha(n,n,i)+v.sy(n,n,i) ,-7) ; 
nl  = -beta(n,n, i)*pow(l+alpha(n,n, i) 
+alpha(n,n,i)*u(n,n,i) ,-7) 

*(1 .0+7*alpha(n,n,i)*u. sy(n,n, i)/(l 
+alpha(n,n,i)+alpha(n,n, i)*u(n,n, i)) ) ; 
u(n,n,i)  = 1.0/drdu*(-s(n,n,i)  + ures  - vres  - nl) ; 

} //  end  for-i  edges 


//  Faces 

for(int  i=l;i<n;i++)  { 
fordnt  j=l;j<n;j++)  { 

if ( (i+j+n)y,2 ! =pass)  continue; 

//  A for  add,  S for  subtract 
double  Aj  = (l+1.0*(j-l)/(n-l)) ; 
double  Sj  = (l-1.0*(j-l)/(n-D) ; 
double  Ai  = (l+1.0*(i-l)/(n-l)) ; 
double  Si  = (l-1.0*(i-l)/(n-l)) ; 

drdu  = D/(h*h) 

+7*alpha(i, j ,n)*beta(i, j ,n)*pow(l+alpha(i, j ,n) 
+alpha(i, j ,n)*u(i, j ,n) ,-8) ; 
ures  = 1 . 0/(h+h)*(2*u. sy(i , j ,n-l) 

+Si*u.sy(i+1, j ,n)+Ai+u.sy(i-l, j ,n) 

+Sj+u.sy(i, j+l,n)+Aj*u.sy(i, j-l,n)) ; 
vres  = 1.0/(h*h)+(2+v.sy(i, j ,n-l) 
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+Si*v.sy(i+l,j ,n)+Ai*v.sy(i-l, j ,n) 

+S j *v . sy (i , j + 1 , n)+Aj  *v . sy (i , j -1 , n) 
-D*v.sy(i, j ,n)) 

+beta(i, j ,n)*pow(l+alpha(i, j ,n) 
+alpha(i, j ,n)*v. sy(i , j ,n) ,-7) ; 
nl  = -beta(i, j ,n)*pow(l+alpha(i, j ,n) 
+alpha(i, j ,n)*u(i, j ,n) ,-7) 

*(1.0+7*alpha(i, j ,n)*u. sy(i , j ,n)/(l 
+alpha(i, j ,n))+alpha(i, j ,n)*u(i, j ,n)) ; 
u(i,j,n)  = 1.0/drdu*(-s(i, j ,n)  + ures 
- vres  - nl) ; 


drdu  = D/(h*h) 

+7*alpha(i,n, j)*beta(i,n, j)*pow(l+alpha(i,n, j) 
+alpha(i,n, j)*u(i,n, j) ,-8) ; 
ures  = 1.0/(h*h)*(2*u.sy(i,n-l, j) 

+Si*u.sy(i+l,n, j)+Ai*u.sy(i-l,n, j) 
+Sj*u.sy(i,n, j+l)+Aj*u. sy(i,n, j-1)) ; 
vres  = 1.0/(h*h)*(2*v.sy(i,n-l,j) 

+Si*v.sy(i+l,n, j)+Ai*v.sy(i-l,n, j) 

+Sj*v.sy(i,n, j+l)+Aj*v.sy(i,n, j-1) 
-D*v.sy(i,n, j)) 

+beta ( i , n , j ) *pow ( 1+alpha ( i , n , j ) 
+alpha(i,n, j)*v.sy(i,n, j) ,-7) ; 
nl  = -beta(i,n, j)*pow(l+alpha(i,n, j) 

+alpha(i,n, j)*u(i,n, j) ,-7) 

*(1 .0+7*alpha(i,n, j)*u. sy(i,n, j)/(l 
+alpha(i,n, j)+alpha(i,n, j)*u(i,n, j))) ; 
u(i,n,j)  = 1.0/drdu*(-s(i,n, j)  + ures 
- vres  - nl) ; 


drdu  = D/(h*h) 

+7*alpha(n, j ,i)*beta(n, j ,i)*pow(l+alpha(n, j ,i) 
+alpha(n, j ,i)*u(n, j ,i) ,-8) ; 
ures  = 1.0/(h*h)*(2*u.sy(n-l, j ,i) 
+Sj*u.sy(n,j+l,i)+Aj*u.sy(n,j-l,i) 

+Si*u.sy(n, j ,i+l)+Ai*u.sy(n, j ,i-l)) ; 
vres  = 1.0/(h*h)*(2*v.sy(n-l, j ,i) 

+Sj*v.sy(n, j+l,i)+Aj*v.sy(n, j-l,i) 

+Si*v.sy(n, j ,i+l)+Ai*v.sy(n, j ,i-l) 

-D*v.sy(n, j ,i)) 

+beta(n, j , i)*pow( 1+alpha (n,j ,i) 

+alpha(n, j ,i)+v.sy(n, j ,i) ,-7) ; 
nl  = -beta(n, j ,i)*pow(l+alpha(n, j ,i) 
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+alpha(n, j ,i)*u(n, j ,i) ,-7) 

*(1.0+7*alpha(n, j , i) *u. sy (n, j , i)/(l 
+alpha(n, j ,i)+alpha(n, j ,i)*u(n, j ,i))) ; 
u(n,j,i)  = 1.0/drdu*(-s(n, j ,i)  + ures 
- vres  - nl) ; 

} //  end  for-j  faces 

} //  end  for-i  faces 
} //  end  if-n 
} //  end  for-pass 
} //  end  for-p 
} //  end  newrelajc 


The  program  newresidual  calculates  the  residual,  based  upon  the  formula  for 
the  nonlinear  relaxation  scheme  above: 


//  newresidual . cxx  - Galerkin  (with  S3nnmetry)  residual  for  nl 
//  adaptive  mg  code 

//  using  galerkin  operator  on  *ALL*  levels 


//  makes  no  assumption  about  solution  u being  small 


#include 

#include 

#include 

#include 

#include 


<assert .h> 

<f stream. h> 
<iostream.h> 
<iomanip.h> 
<math . h> 


#include  "grid.h" 
#include  "adapt. h" 


//  Calculates  the  residual  from  r = A(u)-A(v) 

void  newresidual (AGrid3D&  r,  AGridSDfe  u,  AGrid3D&  v,  AGrid3D&  s, 

AGrid3D&  alpha,  AGrid3D&  beta) 

{ 

extern  double  DELO,  DELI,  DEL2,  DEL3; 
extern  double  GALO,  GALl,  GAL2,  GAL3; 
extern  int  MG; 
extern  double  LEN; 

int  n = r . sideXO  ; 
double  h = r.hXO; 
int  i,  j,  k; 
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double  D = DEL0+2.0/(n-l) ; 

for(i=l ; i<n; i++)  { 
for(j=l; j<n; j++)  { 
for(k=l ;k<n;k++)  { 

double  drdu  = -GAL0/(h*h) 

+7*alpha(i, j ,k)*beta(i, j ,k)*pow(l+alpha(i, j ,k) 
+alpha(i, j ,k)*u(i, j ,k) ,-8) ; 
double  ures  = 1.0/(h*h)*(GALl*(u.sy(i+l, j ,k) 
+u.sy(i-l, j ,k)+u.sy(i, j+l,k)+u.sy(i, j-l,k) 
+u.sy(i, j ,k+l)+u.sy(i, j ,k-l)) 
+GAL2*(u.sy(i+l, j+l,k)+u.sy(i+l, j-l,k) 

+u. sy(i-l, j+l,k)+u. sy(i-l , j-l,k) 

+u.sy(i, j+l,k+l)+u.sy(i, j-l,k+l) 
+u.sy(i+l,j ,k+l)+u.sy(i-l, j ,k+l) 

+u.sy(i, j+l,k-l)+u.sy(i, j-l,k-l) 
+u.sy(i+l,  j ,k-l)+u.sy(i-l,  j ,k-D) 
+GAL3*(u.sy(i+l, j+l,k+l)+u.sy(i-l, j+l,k+l) 
+u.sy(i+l, j-l,k+l)+u.sy(i-l, j-l,k+l) 
+u.sy(i+l, j+l,k-l)+u.sy(i-l, j+l,k-l) 
+u.sy(i+l, j-l,k-l)+u.sy(i-l, j-l,k-l))) ; 
double  vres  = 1 . 0/(h*h)* (GAL0*v. sy (i , j ,k) 
+GALl*(v. sy(i+l, j ,k)+v. sy(i-l , j ,k) 

+v.sy(i, j+i,k)+v.sy(i, j-l,k) 

+v.sy(i, j ,k+l)+v.sy(i, j ,k-l)) 
+GAL2*(v.sy(i+l, j+l,k)+v.sy(i+l, j-l,k) 
+v.sy(i-l,j+l,k)+v.sy(i-l, j-l,k) 

+v.sy(i, j+l,k+l)+v.sy(i, j-l,k+l) 

+v.sy(i+l, j ,k+l)+v.sy(i-l, j ,k+l) 

+v.sy(i, j+l,k-l)+v.sy(i, j-l,k-l) 
+v.sy(i+l,  j ,k-l)+v.sy(i-l,j  ,k-D) 
+GAL3*(v.sy(i+l, j+l,k+l)+v.sy(i-l, j+l,k+l) 
+v.sy(i+l,j-l,k+l)+v.sy(i-l, j-l,k+l) 
+v.sy(i+l, j+l,k-l)+v.sy(i-l, j+l,k-l) 
+v.sy(i+l,j-l,k-l)+v.sy(i-l, j-l,k-l))) 
+beta(i, j ,k)*pow(l+alpha(i, j ,k) 

+alpha(i, j ,k)*v.sy(i, j ,k) ,-7) ; 
double  nl  = -beta(i, j ,k)*pow(l+alpha(i, j ,k) 
+alpha(i, j ,k)*u(i, j ,k) ,-7) 

*(1.0+7*alpha(i,j ,k)*u.sy(i, j ,k)/(l 
+alpha(i, j ,k)+alpha(i, j ,k)*u(i, j ,k))) ; 
r(i,j,k)  = s(i,j,k)  - ures  + vres 
+ nl  + drdu*u(i, j ,k) ; 
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} //  end  for  k 
} //  end  for-j 
} //  end  for-i 

if (n<=pow(2,MG)+l)  { //  if  on  finest  mg  level,  use  Robin 

//  AND  Galerkin  condition 
double  drdu  = D/(h*h) 

+7*alpha (n , n , n) *bet a (n , n , n) *pow ( 1+alpha (n , n , n) 
+alpha(n,n,n)*u(n,n,n) ,-8) ; 
double  ures  = 1 . 0/(h*h) * (2*u. sy (n-1 ,n,n) 

+2*u. sy(n,n-l ,n)+2*u. sy(n,n,n-l) ) ; 
double  vres  = 1.0/(h*h)*(2*v.sy(n-l,n,n) 

+2*v . sy(n,n-l ,n)+2*v.sy(n,n,n-l)-D*v. sy(n,n,n)) 

+bet a (n , n , n) *pow ( 1+alpha (n , n , n) 

+alpha(n,n,n)*v. sy(n,n,n) ,-7) ; 
double  nl  = -beta(n,n,n)*pow(l+alpha(n,n,n) 
+alpha(n,n,n)*u(n,n,n) ,-7) 

* (1 . 0+7*alpha(n,n,n) *u. sy (n,n,n)/(l 
+alpha(n,n,n)+alpha(n,n,n) *u(n,n,n) ) ) ; 
r(n,n,n)  = s(n,n,n)  - ures  + vres  + nl  + drdu*u(n,n,n) ; 

//  Edges 

for(i=l ; i<n; i++)  { 

double  S = (l-1.0*(i-l)/(n-l)) ; //  S for  subtract 

double  A = (l+1.0*(i-l)/(n-l)) ; //  A for  add 

drdu  = D/(h*h) 

+7*alpha ( i , n , n) *beta ( i , n , n) *pow ( 1+alpha ( i , n , n) 
+alpha(i,n,n)*u(i,n,n) ,-8) ; 
ures  = 1.0/(h*h)*(2*u.sy(i,n-l,n) 

+2*u.sy(i,n,n-l)+S*u.sy(i+l,n,n)+A*u.sy(i-l,n,n)) ; 
vres  = 1.0/(h*h)*(2+v.sy(i,n-l,n)+2*v.sy(i,n,n-l) 

+S*v. sy(i+l ,n,n)+A*v. sy(i-l ,n,n)-D*v. sy(i ,n,n)) 

+bet a ( i , n , n) *pow ( 1+alpha ( i , n , n) 
+alpha(i,n,n)*v.sy(i,n,n) ,-7) ; 
nl  = -beta(i ,n,n)*pow(l+alpha(i ,n,n) 
+alpha(i,n,n)*u(i,n,n) ,-7) 

* (1 . 0+7*alpha(i ,n,n)+u. sy(i ,n,n)/(l 
+alpha ( i , n , n) +alpha ( i , n , n) *u ( i , n , n) ) ) ; 
r(i,n,n)  = s(i,n,n)  - ures  + vres  + nl  + drdu*u(i ,n,n) ; 


drdu  = D/(h*h) 
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+7*alpha(n, i,n)*beta(n, i ,n)*pow(l+alpha(n, i,n) 
+alpha(n,i,n)=Ku(n,i,n)  ,-8) ; 
ures  =1.0/(h*h)*(2*u.sy(n-l,i,n) 

+2*u.sy(n,i,n-l)+S*u.sy(n,i+l,n)+A*u.sy(n,i-l,n)) ; 
vres  = 1.0/(h*h)*(2*v.sy(n-l,i,n)+2*v.sy(n,i,n-l) 

+S*v . sy (n , i+1 , n) +A*v . sy (n , i- 1 , n) -D*v . sy (n , i , n) ) 

+beta (n , i , n) *pow ( 1+alpha (n , i , n) 
+alpha(n,i,n)*v.sy(n,i,n) ,-7) ; 
nl  = -beta(n,i,n)*pow(l+alpha(n,i,n) 
+alpha(n,i,n)*u(n,i,n) ,-7) 

* (1 . 0+7*alpha(n, i ,n) *u. sy(n, i ,n)/(l 
+alpha (n , i , n) +alpha (n , i , n) *u (n , i , n) ) ) ; 
r(n,i,n)  = s(n,i,n)  - ures  + vres  + nl  + drdu*u(n, i ,n) ; 

drdu  = D/(h*h) 

+7*alpha(n,n, i)*beta(n,n, i) *pow(l+alpha(n,n, i) 
+alpha(n,n,i)*u(n,n,i) ,-8) ; 
ures  = 1 . 0/(h*h)*(2*u. sy(n-l ,n, i) 

+2*u.sy(n,n-l,i)+S*u.sy(n,n,i+l)+A*u.sy(n,n,i-l)) ; 
vres  = 1.0/(h*h)*(2*v.sy(n-l,n,i)+2*v.sy(n,n-l,i) 

+S*v. sy(n,n, i+l)+A*v. sy(n,n,i-l)-D*v. sy(n,n, i) ) 

+beta (n , n , i ) *pow (1+alpha (n , n , i ) 
+alpha(n,n,i)*v.sy(n,n,i) ,-7) ; 
nl  = -beta(n,n, i)*pow(l+alpha(n,n, i) 

+alpha(n,n, i)*u(n,n, i) ,-7) 

*(1 .0+7*alpha(n,n, i)*u. sy(n,n, i)/(l 
+alpha(n,n, i)+alpha(n,n, i)+u(n,n, i)) ) ; 
r(n,n,i)  = s(n,n,i)  - ures  + vres  + nl  + drdu+u(n,n, i) ; 

} 

//  Faces 

for(i=l ; i<n; i++)  { 
for(j=l; j<n; j++)  { 

//  A for  add,  S for  subtract 
double  Aj  = (l+1.0+(j-l)/(n-l)) ; 
double  Sj  = (l-1.0*(j-l)/(n-D) ; 
double  Ai  = (1+1 .0*(i-l)/(n-l)) ; 
double  Si  = (1-1 .0*(i-l)/(n-l)) ; 

drdu  = D/(h*h) 

+7+alpha(i, j ,n)*beta(i, j ,n) *pow(l+alpha(i , j ,n) 
+alpha(i, j ,n)+u(i, j ,n) ,-8) ; 
ures  = 1.0/(h*h)+(2*u.sy(i, j ,n-l) 

+Si*u. sy(i+l , j ,n)+Ai*u. sy(i-l , j ,n) 
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+Sj*u.sy(i,j+l,n)+Aj*u.sy(i,j-l,n)) ; 
vres  = 1 . 0/(h*h)*(2*v. sy(i , j ,n-l) 

+Si*v.sy(i+1, j ,n)+Ai+v.sy(i-l, j ,n) 

+Sj*v.sy(i, j+l,n)+Aj*v. sy(i, j-l,n)-D*v. sy(i, j ,n)) 
+beta(i, j ,n)*pow(l+alpha(i, j ,n) 

+alpha(i, j ,n)*v.sy(i, j ,n) ,-7) ; 
nl  = -beta(i, j ,n)*pow(l+alpha(i, j ,n) 

+alpha(i, j ,n)*u(i, j ,n) ,-7) 

*(1 .0+7*alpha(i, j ,n) *u. sy (i , j ,n)/(l 
+alpha(i, j ,n))+alpha(i, j ,n)*u(i, j ,n)) ; 
r(i,j,n)  = s(i,j,n)  - ures  + vres 
+ nl  + drdu*u(i , j ,n) ; 


drdu  = D/(h*h) 

+7*alpha(i,n, j)*beta(i,n, j)*pow(l+alpha(i,n, j) 
+alpha(i,n, j)*u(i,n, j) ,-8) ; 
ures  = 1.0/(h*h)*(2*u.sy(i,n-l, j) 

+Si*u.sy(i+l,n, j)+Ai*u.sy(i-l,n, j) 
+Sj*u.sy(i,n,j+1)+Aj*u.sy(i,n,j-D) ; 
vres  = 1.0/(h*h)*(2*v.sy(i,n-l, j) 

+Si*v. sy(i+l ,n, j )+Ai*v. sy (i-1 ,n, j) 

+Sj*v.sy(i,n, j+l)+Aj*v.sy(i,n, j-l)-D*v.sy(i,n, j)) 
+bet a ( i , n , j ) *pow ( 1+alpha ( i , n , j ) 

+alpha(i,n, j)*v.sy(i,n, j) ,-7) ; 
nl  = -beta(i,n, j)*pow(l+alpha(i,n, j) 

+alpha(i,n, j)*u(i,n, j) ,-7) 

* ( 1 . 0+7*alpha (i,n,j)*u.sy(i,n,j)/(l 
+alpha(i,n, j)+alpha(i,n, j)*u(i,n, j))) ; 
r(i,n,j)  = s(i,n,j)  - ures  + vres 
+ nl  + drdu*u(i,n, j) ; 


drdu  = D/(h*h) 

+7*alpha(n, j ,i)*beta(n, j ,i)*pow(l+alpha(n, j ,i) 
+alpha(n, j ,i)*u(n, j ,i) ,-8) ; 
ures  = 1 . 0/(h*h)*(2*u. sy(n-l , j , i) 

+Sj*u.sy(n, j+l,i)+Aj*u.sy(n, 

+Si+u.sy(n, j , i+l)+Ai*u. sy(n, j ; 
vres  = 1.0/(h*h)*(2*v.sy(n-l, j ,i) 

+Sj*v.sy(n, j+i,i)+Aj*v.sy(n, 

+Si*v.sy(n, j ,i+l)+Ai*v.sy(n, j ,i-l)“D*v.sy(n, j ,i)) 
+beta(n, j ,i)*pow(l+alpha(n, j ,i) 

+alpha(n, j ,i)*v.sy(n, j ,i) ,-7) ; 
nl  = -beta(n, j , i)*pow(l+alpha(n, j , i) 

+alpha(n, j ,i)*u(n, j ,i) ,-7) 
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*(1.0+7*alpha(n, j ,i)*u.sy(n, j ,i)/(l 
+alpha(n, j , i)+alpha(n, j ,i)*u(n, j ,i))) : 
r(n,j,i)  = s(n,j,i)  - ures  + vres 
+ nl  + drdu*u(n, j , i) ; 

}//  end  for-j 
} //  end  for-i 
} //  end  if-n 
} //  end  newresidual 

The  program  moment  allows  for  the  calculation  of  multipole  moments  for  any 
value  of  ^ and  m,  using  the  appropriate  Galerkin  operator.  For  our  purposes,  we  only 
calculate  the  monopole  moment,  which  is  equivalent  to  the  mass  correction  to  the 
ADM  mass,  and  the  £ = m = 2 multipole  moment,  which  is  related  to  the  quadrupole 
moment. 

//  moment. cxx  - calculates  quadrupole  moments  of  field 
//  for  some  l,m 


#include 

#include 

#include 

#include 

#include 


<assert .h> 

<f stream. h> 
<iostream.h> 
<iomanip.h> 
<math . h> 


#include  "grid.h" 
#include  "adapt. h" 


//  k denotes  the  grid  point  of  the  surface 
double  moment (AGrid3D&  u,  int  1,  int  m,  int  k)  { 


extern  const  double  PI; 
extern  const  int  MG; 

int  n = u.  sideXO  ; 
double  len  = u.LenXO; 
double  h = u.hXO; 

AGridSD  psib;  //  psib  = r~l*Y(l,m)  in  polynomial  form 

psib.reset(n,len) ; //  must  have  one  extra  grid  point  in  psib 

psibar(psib,l,m) ; //  determine  psibar 

double  sum  = 0.0; 


//Faces 
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forCint  i = 2;i<k;i++)  { 
forCint  j = 2;j<k;j++)  { 

sum  = sum  + h*( (1 . 0/6*(psib . sy(k, i+1 , j )+psib. sy(k, i-1 , j ) 
+psib. sy(k, i, j+l)+psib. sy(k, i , j-1) ) 

+1 .0/12*(psib. sy(k, i+1 , j+l)+psib. sy(k, i+1 , j-1) 

+psib. sy(k, i-1, j+1) 

+psib.sy(k,i-l, j-l)))*u.sy(k+l,i, j) 

-(1.0/6* (psib . sy (k+1 , i+1 , j ) +psib . sy (k+1 , i-1 , j ) 

+psib . sy(k+l , i , j+l)+psib . sy (k+1 , i , j-1) ) 

+1 . 0/ 12* (psib . sy (k+1 , i+1 , j+l)+psib . sy (k+1 , i+1 , j-1) 
+psib.sy(k+l,i-l, j+1) 

+psib.sy(k+l,i-l, j-l)))*u.sy(k,i, j)) ; 

sum  = sum  + h*((1.0/6*(psib.sy(i+l,k, j)+psib.sy(i-l,k, j) 
+psib. sy(i ,k, j+l)+psib. sy(i ,k, j-1)) 

+1 . 0/12*(psib. sy(i+l,k, j+l)+psib. sy(i+l,k, j-1) 

+psib. sy(i-l ,k, j+1) 

+psib.sy(i-l,k, j-l)))*u.sy(i,k+l, j) 
-(1.0/6*(psib.sy(i+l,k+l, j)+psib.sy(i-l,k+l, j) 

+psib. sy(i ,k+l , j+l)+psib. sy (i ,k+l , j-1) ) 

+1 .0/12*(psib.sy(i+l,k+l, j+l)+psib. sy(i+l,k+l, j-1) 
+psib. sy(i-l,k+l , j+1) 

+psib.sy(i-l,k+l, j-l)))*u.sy(i,k, j)) ; 

sum  = sum  + h*( (1 . 0/6*(psib. sy(i+l , j ,k)+psib . sy(i-l , j ,k) 
+psib. sy(i, j+1 ,k)+psib. sy(i , j-1 ,k) ) 

+1 . 0/12* (psib. sy (i+1, j+1, k)+psib. sy( i+1, j-1, k) 

+psib. sy(i-l , j+1 ,k) 

+psib.sy(i-l, j-l,k)))*u.sy(i, j ,k+l) 

-( 1. 0/6* (psib. sy (i+1, j ,k+l)+psib . sy(i-l , j ,k+l) 
+psib.sy(i,  j + l,k+l)+psib.sy(i,  j-l,k+D) 

+1 .0/12*(psib. sy(i+l , j+l,k+l)+psib. sy(i+l , j-1 ,k+l) 
+psib. sy(i-l , j+1 ,k+l) 

+psib.sy(i-l,j-l,k+l)))*u.sy(i, j ,k)) ; 

} //  end  for-j 
} //  end  for-i 

//  symmetry  edges 
for(int  i =2;i<k;i++)  { 

//  (i,l,k)  edge 

sum  = sum  + 1 . 0/2*h*( (1 . 0/6*(psib . sy (i+1 , 1 ,k) 

+psib. sy (i-1 , 1 ,k)+psib . sy (i ,2,k)+psib. sy (i ,0,k) ) 

+1 . 0/12*(psib. sy (i+1 ,2,k)+psib . sy (i+1 ,0,k) 

+psib . sy(i-l ,2,k)+psib . sy (i-1 ,0,k) ) ) *u. sy(i , 1 ,k+l) 
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- (1 . 0/6* (psib . sy (i+1 , 1 , k+l)+psib . sy (i-1 , 1 ,k+l) 
+psib.sy(i,2,k+l)+psib.sy(i,0,k+D) 

+1 .0/12*(psib. sy(i+l ,2,k+l)+psib. sy(i+l,0,k+l) 

+psib.sy(i-l,2,k+l)+psib. sy(i-l,0,k+l)))*u.sy(i, l,k)) ; 

//  (l,i,k)  edge 

sum  = sum  + 1 . 0/2*h*(  (1 . 0/6*(psib.  sy (1 , i-^1  ,k) 

+psib. sy(l, i-1 ,k)+psib. sy(2, i ,k)+psib. sy(0, i ,k)) 

+1 . 0/ 12* (psib . sy (2 , i+1 , k) +psib . sy (0 , i+1 , k) 

+psib.sy(2,i-l,k)+psib.sy(0,i-l,k)))*u.sy(l,i,k+l) 

-( 1.0/6* (psib. sy(l, i+1, k+l)+psib.sy(l, i-1, k+1) 
+psib.sy(2,i,k+l)+psib.sy(0,i,k+D) 
+1.0/12*(psib.sy(2,i+l,k+l)+psib.sy(0,i+l,k+l) 

+psib.sy(2,i-l,k+l)+psib.sy(0,i-l,k+l)))*u.sy(l,i,k)) ; 

//  (i,k,l)  edge 

sum  = sum  + 1 . 0/2*h* ( (1 . 0/6* (psib . sy(i+l ,k, 1) 

+psib. sy(i-l ,k, l)+psib. sy(i ,k,2)+psib. sy(i ,k,0) ) 

+1 .0/12*(psib. sy(i+l,k,2)+psib. sy(i+l ,k,0) 

+psib. sy(i-l ,k,2)+psib. sy(i-l ,k,0) ) )*u. sy(i,k+l , 1) 

-( 1. 0/6* (psib. sy (i+1, k+1, 1 ) +psib.sy (i-1, k+1, 1) 
+psib.sy(i,k+l,2)+psib.sy(i,k+l,0)) 
+1.0/12*(psib.sy(i+l,k+l,2)+psib.sy(i+l,k+l,0) 

+psib. sy(i-l,k+l ,2)+psib. sy(i-l ,k+l ,0) ))*u. sy(i,k, 1) ) ; 

//  (l,k,i)  edge 

sum  = sum  + 1 . 0/2*h*( (1 . 0/6* (psib . sy(l ,k, i+1) 

+psib. sy(l,k,i-l)+psib.sy(2,k,i)+psib. sy(0,k,i)) 

+1 .0/12*(psib.sy(2,k,i+l)+psib. sy(0,k,i+l) 

+psib.sy(2,k, i-l)+psib. sy(0,k, i-1) ))*u. sy(l ,k+l , i) 

-( 1. 0/6* (psib. sy ( 1, k+1, i+1) +psib.sy(l, k+1, i-1) 
+psib.sy(2,k+l,i)+psib.sy(0,k+l,i)) 
+1.0/12*(psib.sy(2,k+l,i+l)+psib.sy(0,k+l,i+l) 

+psib.sy(2,k+l,i-l)+psib.sy(0,k+l,i-l)))*u.sy(l,k,i)) ; 

//  (k,i,l)  edge 

sum  = sum  + 1 . 0/2*h* ( (1 . 0/6* (psib. sy(k, i+1 , 1) 

+psib . sy(k, i-1 , l)+psib . sy (k, i ,2)+psib . sy (k, i ,0) ) 

+1.0/ 12* (psib . sy (k , i+1 , 2) +psib . sy (k , i+1 , 0) 

+psib . sy (k , i-1 , 2)+psib . sy (k , i-1 , 0) ) ) *u . sy (k+1 , i , 1) 

- (1 . 0/6* (psib . sy (k+1 , i+1 , 1) +psib . sy (k+1 , i-1 , 1) 

+psib . sy (k+1 , i , 2)+psib . sy (k+1 , i , 0) ) 

+1 . 0/12* (psib . sy (k+1 , i+1 , 2) +psib . sy (k+1 , i+1 , 0) 

+psib.sy(k+l,i-l,2)+psib.sy(k+l,i-l,0)))*u.sy(k,i,D) ; 
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//  (k,l,i)  edge 

sum  = sum  + 1.0/2*h*((1.0/6*(psib.sy(k,2,i) 

+psib. sy(k,0,i)+psib. sy(k, 1 , i+l)+psib. sy(k, 1 , i-1)) 
+1.0/12*(psib.sy(k,2,i+l)+psib.sy(k,2,i-l) 

+psib . sy (k, 0 , i+l)+psib . sy (k, 0 , i-1) ) ) *u . sy (k+1 , 1 , i) 
-(1.0/6*(psib.sy(k+l,2,i)+psib.sy(k+l,0,i) 

+psib. sy(k+l , 1 , i+l)+psib. sy(k+l , 1 , i-1) ) 
+1.0/12*(psib.sy(k+l,2,i+l)+psib.sy(k+l,2,i-l) 

+psib . sy (k+1 , 0 , i+l)+psib . sy (k+1 , 0 , i-1) ) ) *u . sy (k , 1 , i) ) ; 
} //end  for-i 

//  interior  symmetry  corners 
int  i = 1; 
int  j = 1; 

//  (1,1, k),  (k,l,l)  and  (l,k,l) 

sum  = sum  + 1 . 0/4*h*( (1 . 0/6* (psib. sy (i+1 , j ,k) 

+psib. sy(i-l , j ,k)+psib. sy(i , j+1 ,k)+psib. sy(i, j-l,k) ) 

+1 . 0/12*(psib. sy(i+l , j+1 ,k)+psib . sy(i+l , j-1 ,k) 

+psib. sy(i-l , j+l,k)+psib. sy(i-l , j-1 ,k) ) )*u. sy(i , j ,k+l) 
-(1.0/6*(psib.sy(i+l, j ,k+l)+psib. sy(i-l , j ,k+l) 

+psib. sy(i, j+1 ,k+l)+psib. sy(i , j-1 ,k+l) ) 
+1.0/12*(psib.sy(i+l, j+l,k+l)+psib.sy(i+l, j-l,k+l) 

+psib. sy(i-l , j+1 ,k+l) 

+psib.sy(i-l, j-l,k+l)))*u.sy(i, j ,k)) 

+1.0/ 4*h* ( ( 1 . 0/6* (ps ib . sy (k , i+1 , j ) +ps ib . sy (k , i- 1 , j ) 

+psib. sy(k, i , j+l)+psib. sy(k, i, j-1)) 

+1.0/ 12*(psib. sy (k, i+1 , j+l)+psib. sy (k, i+1 , j-1) 

+psib.sy(k,i-l, j+l)+psib.sy(k,i-l, j-l)))*u.sy(k+l,i, j) 
-(1 . 0/6*(psib. sy(k+l , i+1 , j )+psib. sy(k+l , i-1 , j) 
+psib.sy(k+l,i, j+l)+psib.sy(k+l,i, j-1)) 
+1.0/12*(psib.sy(k+l,i+l, j+l)+psib.sy(k+l,i+l, j-1) 

+psib. sy(k+l , i-1 , j+1) 

+psib.sy(k+l,i-l, j-l)))*u.sy(k,i, j)) 

+1.0/4*h*((l .0/6*(psib.sy(i+l ,k, j)+psib.sy(i-l,k, j) 

+psib. sy(i,k, j+l)+psib. sy(i ,k, j-1)) 

+1. 0/12* (psib.sy( i+1, k, j+1) +psib. sy (i+1, k, j-1) 

+psib.sy(i-l,k, j+l)+psib.sy(i-l,k, j-l)))*u.sy(i,k+l, j) 
-(1 .0/6*(psib.sy(i+l,k+l, j)+psib.sy(i-l,k+l, j) 
+psib.sy(i,k+l, j+l)+psib.sy(i,k+l, j-1)) 
+1.0/12*(psib.sy(i+l,k+l, j+l)+psib.sy(i+l,k+l, j-1) 

+psib. sy(i-l,k+l , j+1) 

+psib.sy(i-l,k+l, j-l)))*u.sy(i,k,j)) ; 


//  boundary  edges 
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forCint  i = 2;i<k;i++)  { 

//  (k,k,i)  edge 

sum  = sum  + h*((1.0/6*(psib.sy(k,k,i+l)+psib.sy(k,k-l,i) 
+psib.sy(k,k,i-l)) 

+1 .0/12*(psib. sy(k,k-l , i-1) 

+psib.sy(k,k-l,i+l)))*u.sy(k+l,k,i) 

+(1 .0/6*(psib. sy(k,k,i+l)+psib. sy(k-l,k,i) 
+psib.sy(k,k,i-l)) 

+1 .0/12*(psib. sy(k-l ,k, i-1) 

+psib.sy(k-l,k,i+l)))*u.sy(k,k+l,i) 

+(1.0/6*(psib.sy(k,k,i)) 

+1.0/12*(psib.sy(k,k,i+l) 

+psib.sy(k,k,i-l)))*u.sy(k+l,k+l,i) 

-(1 .0/6*(psib. sy(k,k+l, i+l)+psib. sy(k-l ,k+l , i) 
+psib.sy(k,k+l,i-l)+psib.sy(k+l,k,i-l) 

+psib. sy(k+l ,k, i+l)+psib. sy(k+l ,k+l , i) 
+psib.sy(k+l,k-l,i)) 

+1 . 0/12* (psib. sy(k+l ,k+l , i-l)+psib . sy(k-l ,k+l , i-1) 
+psib . sy (k-1 ,k+l , i+l)+psib . sy (k+1 ,k-l , i-1) 

+psib. sy(k+l ,k-l , i+1) 
+psib.sy(k+l,k+l,i+l)))*u.sy(k,k,i)) ; 

//  (k,i,k)  edge 

sum  = sum  + h*( (1 . 0/6* (psib. sy(k, i+1 ,k)+psib . sy(k, i ,k-l) 
+psib.sy(k,i-l,k)) 

+1 . 0/ 12* (psib . sy (k , i-1 , k-1) 

+psib.sy(k,i+l,k-l)))*u.sy(k+l,i,k) 

+( 1.0/6* (psib. sy(k, i+1, k)+psib.sy (k-1, i,k) 
+psib.sy(k,i-l,k)) 

+1 . 0/12* (psib . sy (k-1 , i-1 , k) 

+psib.sy(k-l,i+l,k)))*u.sy(k,i,k+l) 

+ ( 1 . 0/6* (psib . sy (k , i , k) ) 

+1 . 0/12*(psib. sy(k, i+1 ,k) 

+psib.sy(k,i-l,k)))*u.sy(k+l,i,k+l) 

-( 1. 0/6* (psib. sy(k, i+1, k+1) +psib.sy (k-1, i, k+1) 

+psib. sy(k, i-1 ,k+l)+psib. sy(k+l , i-1 ,k) 

+psib. sy(k+l , i+1 ,k)+psib. sy(k+l , i ,k+l) 
+psib.sy(k+l,i,k-l)) 

+1 . 0/12* (psib . sy (k+1 , i-1 ,k+l)+psib . sy (k-1 , i-1 , k+1) 
+psib. sy(k-l , i+1 ,k+l)+psib. sy(k+l , i-1 , k-1) 

+psib. sy(k+l ,i+l ,k-l) 

+psib. sy(k+l , i+1 ,k+l) ) )*u . sy(k, i ,k) ) ; 
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//  (i,k,k)  edge 

sum  = sum  + h*( (1 ,0/6*(psib. sy(i+l ,k,k)+psib . sy(i ,k,k-l) 
+psib. sy(i-l,k,k)) 

+1 .0/12*(psib. sy(i-l,k,k-l) 

+psib.sy(i+l,k,k-l)))*u.sy(i,k+l,k) 

+(1 .0/6*(psib. sy(i+l ,k,k)+psib. sy(i ,k-l ,k) 
+psib.sy(i-l,k,k)) 

+1 .0/12*(psib. sy(i-l ,k-l ,k) 

+psib . sy (i+1 ,k-l ,k) ) )*u. sy(i ,k,k+l) 
+(1.0/6*(psib.sy(i,k,k)) 

+1 .0/12*(psib. sy(i+l,k,k) 

+psib. sy(i-l ,k,k)) )*u. sy(i ,k+l ,k+l) 

-(1 .0/6*(psib.sy(i+l,k,k+l)+psib.sy(i,k-l,k+l) 

+psib. sy(i-l ,k,k+l)+psib. sy(i-l ,k+l ,k) 

+psib. sy(i+l ,k+l ,k)+psib . sy (i ,k+l ,k+l) 
+psib.sy(i,k+l,k-l)) 

+1 . 0/12*(psib. sy(i-l ,k+l ,k+l)+psib . sy(i-l ,k-l ,k+l) 
+psib. sy(i+l ,k-l ,k+l)+psib. sy(i-l ,k+l ,k-l) 

+psib. sy(i+l ,k+l ,k-l) 
+psib.sy(i+l,k+l,k+l)))*u.sy(i,k,k)) ; 

} //  end  for-i 

//  boundary  corners 

//  (k,k,l)  corner 

sum  = sum  + 0 . 5*h*( (1 . 0/6*(psib. sy (k,k,2)+psib . sy(k,k-l , 1) 
+psib.sy(k,k,0)) 

+1 .0/12*(psib. sy(k,k-l ,0) 

+psib. sy(k,k-l ,2)))*u. sy(k+l ,k, 1) 

+(1 . 0/6*(psib. sy(k,k,2)+psib. sy(k-l ,k, 1) 

+psib.sy(k,k,0)) 

+1 .0/12*(psib.sy(k-l,k,0) 

+psib. sy(k-l ,k,2) ))*u. sy(k,k+l , 1) 

+(1 . 0/6*(psib. sy(k,k, 1) ) 

+1 . 0/12*(psib. sy(k,k,2) 

+psib . sy (k , k , 0) ) ) *u . sy (k+1 , k+1 , 1) 

-(1 . 0/6*(psib. sy(k,k+l ,2)+psib. sy(k-l ,k+l , 1) 

+psib. sy(k,k+l ,0)+psib. sy(k+l ,k,0) 
+psib.sy(k+l,k,2)+psib.sy(k+l,k+l,l) 

+psib . sy (k+1 ,k-l , 1) ) 

+1. 0/12* (psib.sy (k+1, k+1, 0)+psib.sy(k-l, k+1, 0) 
+psib.sy(k-l,k+l,2)+psib.sy(k+l,k-l,0) 

+psib . sy(k+l ,k-l ,2) 

+psib.sy(k+l,k+l,2)))*u.sy(k,k, 1)) ; 
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//  (k,l,k)  corner 

sum  = sum  + 0. 5*h*( (1 .0/6*(psib. sy(k,2,k)+psib . sy(k, 1 ,k-l) 
+psib.sy(k,0,k)) 

+1 .0/12*(psib. sy(k,0,k-l) 

+psib.sy(k,2,k-l)))*u.sy(k+l,l,k) 

+(1.0/6*(psib. sy(k,2,k)+psib.sy(k-l, 1 ,k) 

+psib.sy(k,0,k)) 

+1 . 0/12* (psib . sy (k-1 , 0 , k) 

+psib.sy(k-l,2,k)))*u.sy(k, l,k+l) 

+(1 .0/6*(psib. sy(k, 1 ,k) ) 

+1.0/12*(psib. sy(k,2,k) 

+psib.sy(k,0,k)))*u.sy(k+l,l,k+l) 

- ( 1 . 0/6* (psib . sy (k , 2 , k+1) +psib . sy (k-1 , 1 , k+1) 
+psib.sy(k,0,k+l)+psib.sy(k+l,0,k) 

+psib. sy(k+l ,2,k)+psib. sy(k+l , 1 ,k+l) 
+psib.sy(k+l,l,k-l)) 

+1 . 0/12*(psib. sy(k+l ,0,k+l)+psib . sy(k-l ,0,k+l) 
+psib.sy(k-l,2,k+l)+psib.sy(k+l,0,k-l) 

+psib. sy(k+l,2,k-l) 

+psib. sy(k+l,2,k+l)))*u. sy(k,l,k)) ; 

//  (l,k,k)  corner 

sum  = sum  + 0 . 5*h*( (1 . 0/6* (psib. sy(2,k,k)+psib . sy(l ,k, k-1) 
+psib.sy(0,k,k)) 

+1 .0/12*(psib. sy(0,k,k-l) 

+psib.sy(2,k,k-l)))*u.sy(l,k+l,k) 

+(1 . 0/6*(psib. sy(2,k,k)+psib. sy (1 ,k-l ,k) 

+psib.sy(0,k,k)) 

+1 .0/12*(psib. sy(0,k-l,k) 

+psib.sy(2,k-l,k)))*u.sy(l,k,k+l) 

+ (1.0/6* (psib. sy(l,k,k)) 

+1.0/12*(psib.sy(2,k,k) 

+psib.sy(0,k,k)))*u. sy(l,k+l,k+l) 
-(1.0/6*(psib.sy(2,k,k+l)+psib.sy(l,k-l,k+l) 

+psib. sy(0,k,k+l)+psib. sy(0,k+l ,k) 
+psib.sy(2,k+l,k)+psib.sy(l,k+l,k+l) 

+psib. sy(l ,k+l ,k-l)) 

+1. 0/12* (psib. sy (0, k+1, k+1) +psib.sy(0, k-1, k+1) 
+psib.sy(2,k-l,k+l)+psib.sy(0,k+l,k-l) 

+psib . sy (2 , k+1 , k- 1 ) 

+psib.sy(2,k+l,k+l)))*u.sy(l,k,k)) ; 


//  outermost  corner 
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sum  = sum  + h*((1.0/6*(psib.sy(k,k,k-l)+psib.sy(k,k-l,k)) 
+1.0/12*psib.sy(k,k-l,k-l))*u.sy(k+l,k,k) 

+(1 . 0/6*(psib. sy(k,k,k-l)+psib . sy (k-1 ,k,k) ) 
+1.0/12*psib.sy(k-l,k,k-l))*u.sy(k,k+l,k) 

+(1.0/6* (psib. sy(k,k-l ,k)+psib. sy(k-l ,k,k) ) 

+1 .0/12*psib. sy(k-l ,k-l ,k) )*u. sy(k,k,k+l) 

+(1.0/ 6*psib . sy (k , k , k) 

+1 . 0/12*psib. sy(k,k,k-l))*u. sy(k+l ,k+l ,k) 

+(1 . 0/6*psib. sy(k,k,k) 
+1.0/12*psib.sy(k,k-l,k))*u.sy(k+l,k,k+l) 

+(1 .0/6*psib.sy(k,k,k) 
+1.0/12*psib.sy(k-l,k,k))*u.sy(k,k+l,k+l) 

+(1.0/ 12*psib . sy (k , k , k) ) *u . sy (k+1 , k+1 , k+ 1 ) 

-(1 . 0/6*(psib. sy(k-l ,k,k+l)+psib. sy(k-l ,k+l ,k) 
+psib.sy(k,k-l,k+l)+psib.sy(k,k+l,k-l) 

+psib. sy(k,k+l ,k+l)+psib . sy (k+1 ,k-l ,k) 
+psib.sy(k+l,k,k-l)+psib.sy(k+l,k,k+l) 

+psib. sy(k+l ,k+l ,k)) 

+1. 0/12* (psib. sy (k- 1, k-1, k+1) +psib.sy (k-1, k+1, k-1) 
+psib.sy(k-l,k+l,k+l)+psib.sy(k+l,k-l,k+l) 

+psib. sy(k+l ,k+l,k+l)+psib.sy(k+l,k+l,k-l) 
+psib.sy(k+l,k-l,k-l)))*u.sy(k,k,k)) ; 

//  Now,  add  all  contributions  together  to  determine  the 
//  multipole  moment... 

//  Don’t  forget  to  multiply  by  8 for  the  octant! 

double  norm  = -1 . 0/sqrt (PI) ; //  Ensures  phi (0,0)  for  bh’s 

double  mom  =0.0;  //  ensures  moment  is  zero 

mom  = 8.0*norm/(2*l+l)*sum; 

return (mom) ; 


The  function  psibar  simply  fills  an  array  with  radial  polynomials  which  are 
dependent  upon  spherical  harmonics,  depending  upon  the  values  of  I and  m: 

//  psibar. cxx  - code  that  determines  the  polynomial  form 
//  of  r~l*Y(l,m) 

#include  <assert.h> 

#include  <f stream. h> 

#include  <iostream.h> 
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#include  <iomanip.h> 
#include  <math.h> 

#include  "grid.h" 
#include  "adapt. h" 


void  psibar(AGrid3D&  psib,  int  1,  int  m) 

{ 


extern  const  double  PI; 
int  n = psib.  sideXO  ; 
double  h = psib.hXO; 

for (int  i=l ; i<=n; i++)  { 
forCint  j=l; j<=n; j++)  { 
for (int  k=l ;k<=n;k++)  { 

//  Note  "x"  is  the  symmetry  a^cis!! 

double  X = h*(i-l); 
double  y = h*(j-l); 
double  2 = h*(k-l); 

if(l==0)  { 

psib(i,j,k)  = 1.0/sqrt(4*PI) ; 

} 

else  if(l==l)  { 
if (m==0)  { 

psib(i,j,k)  = 1 .0*sqrt(3.0/(4*PI))*z; 

} //  end  if  m=0 
else  if(m==l)  { 

psib(i,j,k)  = 1.0*sqrt(3.0/(8*PI))*x; 
}//  end  if  m=l 
else  { 

psib(i,j,k)  = -1.0*sqrt(3.0/(8*PI))*x; 
}//  end  if  m=-l 

> //  end  if  1=1 


else  if(l==2)  { 
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if(m==0)  { 

psib(i,j,k)  = -0.5*sqrt(5.0/(4*PI))*(x*x+y*y-2*z*z) ; 

} //  end  if  m=0 

else  if(m==l)  { 

psib(i,j,k)  = -1.0*sqrt(15.0/(8*PI))*x*y; 

} //  end  if  m=l 
else  if(m==-l)  { 

psib(i,j,k)  = 1 .0*sqrt(15.0/(8*PI))*x*y; 

}//  end  if  m=-l 

else  if (m==2)  { 

psib(i,j,k)  = 1.0/4*sqrt(15.0/(2*PI))*(x*x-y*y) ; 

} //  end  if  m=2 
else  { 

psib(i,j,k)  = 1.0/4*sqrt(15.0/(2*PI))*(x*x-y*y) ; 

} //  end  if  m=-2 

} //  end  if-l=2 
} //end  for-k 
} //  end  for-j 
} //  end  for-i 
} //  end  psibax 

The  function  symadaptrstrct  is  a adaptive  grid  restriction  routine,  designed  to 
restrict  only  some  of  the  arrays  to  larger  adaptive  levels: 

#include  <assert.h> 

#include  <f stream. h> 

#include  <iostream.h> 

#include  <iomcinip.h> 

#include  <math.h> 

#include  "grid.h" 

#include  " adapt. h" 

extern  int  MG; 

//  Half -weighting  restriction  for  non-mg  levels 
void  symadaptrstrct (AGridSDfe  vl,  AGridSDfe  vs) 

{ 

int  il,  is,  jl,  js,  kl,  ks; 
int  nl  = vl.sideXO; 
int  N = nl/2-1; 

if (nl==pow(2,MG)+3)  N = nl/2-1; 
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else  N = nl/2; 

//  Calculate  the  interior 

for(ks=l,kl=l;  kl<=N;  kl++,ks+=2)  { 
for(js=l, jl=l;  jl<=N;  jl++,js+=2)  { 
for(is=l,il=l;  il<=N;  il++,is+=2)  { 
vl(il,jl,kl)  = 0. 125*(vs.sy(is, js,ks) 

+0 . 5* ( vs . sy ( is+1 , j s , ks ) +vs .sy(is-l,js,ks) 

+VS . sy(is, js+1 ,ks)+vs . sy(is , js-l,ks) 

+VS . sy (is, js ,ks+l)+vs . sy(is , js ,ks-l) ) 

+0 . 25* (vs . sy ( is , j s+1 , ks+1 ) +vs . sy ( is , j s+1 , ks- 1 ) 

+VS .sy(is,js-l, ks+ 1 ) +vs .sy(is,js-l,ks-l) 

+VS . sy(is+l, js ,ks+l)+vs . sy(is+l, js ,ks-l) 

+vs.sy(is-l, js,ks+l)+vs. sy(is-l, js,ks-l) 

+VS. sy(is+l, js+1 ,ks)+vs . sy(is+l , js-1 ,ks) 

+VS . sy(is-l , js+1 ,ks)+vs . sy(is-l , js-1 ,ks) ) 

+0. 125* (vs . sy(is+l , js+1 , ks+1) +VS . sy(is+l , js+1 ,ks-l) 

+VS . sy(is+l , js-1 , ks+1) +VS . sy(is+l , js-1 ,ks-l) 

+VS . sy(is-l , js+1 , ks+1) +VS. sy(is-l , js+1 ,ks-l) 

+VS . sy(is-l , js-1, ks+1) +VS . sy(is-l , js-1 ,ks-l) ) ) ; 

} //  end  for-is 
} //  end  for-js 
} //  end  for-ks 
} //  end  symadaptrstrct 

Likewise,  the  program  symresrstrct  is  a adaptive  multigrid  restriction  routine 
designed  specifically  to  restrict  residuals  to  larger  adaptive  levels; 

#include  <assert.h> 

#include  <f stream. h> 

#include  <iostream.h> 

#include  <iomanip.h> 

#include  <math.h> 

#include  "grid.h" 

#include  "adapt. h" 

//  Full-weighting  restriltion  of  residuals 
//  for  use  with  trueamg.cxx 

void  symresrstrct (AGrid3D&  vl,  AGrid3D&  vs) 

{ 

int  il,  iis,  jl,  js,  kl,  ks; 
int  ns  = vs . sideXO  ; 
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//  Calculate  the  interior 
for(ks=l,kl=l;  ks<=ns-2;  kl++,ks+=2)  { 
for(js=l,jl=l;  js<=ns-2;  jl++,js+=2)  { 
for(iis=l,il=l;  iis<=ns-2;  il++,iis+=2)  { 
vl(il,jl,kl)  = 0. 125*(vs.sy(iis, js,ks) 

+0.5*(vs.sy(iis+l, js,ks)+vs.sy(iis-l, js,ks) 

+VS . sy(iis, js+1 ,ks)+vs. syCiis, js-1 ,ks) 

+vs.sy(iis,  js,ks+l)+vs.sy(iis,  js,ks-D) 

+0.25*(vs.sy(iis, js+1, ks+l)+vs.sy(iis, js+1, ks-1) 

+VS . sy(iis, js-l,ks+l)+vs . sy(iis , js-1 ,ks-l) 

+vs.sy(iis+l, js,ks+l)+vs.sy(iis+l, js,ks-l) 

+vs.sy(iis-l, js,ks+l)+vs.sy(iis-l, js,ks-l) 

+vs.sy(iis+l, js+1, ks)+vs.sy(iis+l, js-1, ks) 

+VS . sy(iis-l , js+l,ks)+vs . sy(iis-l , js-1 ,ks) ) 

+0. 125+(vs.sy(iis+l, js+l,ks+l)+vs.sy(iis+l, js+l,ks-l) 
+vs.sy(iis+l, js-1, ks+l)+vs.sy (iis+1, js-1, ks-1) 

+vs . sy(iis-l, js+1 ,ks+l)+vs . sy(iis-l , js+1 , ks-1) 

+vs.sy(iis-l, js-1, ks+l)+vs.sy (iis-1, js-1, ks-1))) ; 

} //  end  for-iis 
} //  end  for-js 
} //  end  for-ks 
} //  end  symresrstrct 

The  program  symrstrct  is  a restriction  routine  designed  specifically  for  multigrid 
levels  only: 

#include  <assert.h> 

#include  <f stream. h> 

#include  <iostream.h> 

#include  <iomanip.h> 

#include  <math.h> 

#include  "grid.h" 

#include  "adapt. h" 

//  Half-weighting  restriction 

void  symrstrct (AGrid3D&  vc,  AGrid3D&  vf) 

{ 

int  ic,  iif,  jc,  jf,  kc,  kf; 
int  nc  = VC . sideXO  ; 
int  nf  = vf.sideXO; 

//  Calculate  the  interior 

for(kf=l,kc=l;  kc<nc;  kc++,kf+=2)  { 
for(jf=l,jc=l;  jc<nc;  jc++,jf+=2)  { 
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for(iif=l,ic=l;  ic<nc;  ic++,iif+=2)  { 
vc(ic,jc,kc)  = 0. 125*(vf .sy(iif , jf ,kf) 

+0.5*(vf .sy(iif+l, jf ,kf)+vf .sy(iif-l, jf ,kf) 

+vf . sy(iif , jf+1 ,kf )+vf . sy(iif , jf-1 ,kf ) 

+vf  .syCiif , jf  ,kf+l)+vf  .sy(iif , jf  ,kf-D) 

+0.25*(vf .syCiif , jf+l,kf+l)+vf ,sy(iif , jf+l,kf-l) 

+vf .syCiif , jf-l,kf+l)+vf .sy(iif , jf-l,kf-l) 

+vf . sy(iif+l , jf ,kf+l)+vf . sy (iif +1 , jf ,kf-l) 

+vf . sy(iif-l , jf ,kf+l)+vf . sy (iif-1 , jf ,kf-l) 

+vf . syCiif +l,jf+l,kf )+vf. syCiif +1, jf-1, kf) 

+vf . syCiif-1 , jf+1 ,kf )+vf . syCiif-1 , jf-1 ,kf )) 

+0. 125* Cvf. syCiif +l,jf+l,kf +l)+vf. syCiif +1, jf+1, kf-1) 
+vf . syCiif +l,jf-l,kf +l)+vf. syCiif +1, jf-1, kf-1) 

+vf . syCiif -l,jf+l,kf +l)+vf. syCiif -1, jf+1, kf-1) 

+vf . syCiif -1, jf-1, kf+l)+vf.sy Ciif-1, jf-1, kf-1))) ; 

} //  end  for-iif 
} //  end  for-jf 
} //  end  for-kf 

//  Calculate  the  corners 

VC  Cnc , nc , nc) = 8 . 0/27 . 0*  Cvf . sy  Cnf , nf , nf ) 

+0 . 5*  Cvf . syCnf-1 ,nf ,nf )+vf . syCnf ,nf-l ,nf ) 

+vf . syCnf ,nf ,nf-l) ) 

+0 . 25*  C vf . sy  Cnf , nf - 1 , nf - 1 ) +vf . sy  Cnf - 1 , nf , nf - 1 ) 

+vf .syCnf -l,nf-l,nf)) 

+0. 125*Cvf ,syCnf-l,nf-l,nf-l))) ; 

//  Calculate  the  edges 

for Ckc=l ,kf =1 ; kc<nc ; kc++ ,kf +=2)  { 

VC  Ckc , nc , nc) = 2 . 0/9 . 0*  Cvf . sy  Ckf , nf , nf ) 

+0 . 5* Cvf . syCkf +1 ,nf ,nf )+vf . sy Ckf-1 ,nf ,nf ) 

+vf . sy  Ckf , nf -1 , nf ) +vf . sy  Ckf , nf , nf -1) ) 

+0. 25* Cvf . syCkf ,nf-l ,nf-l)+vf . sy Ckf+1 ,nf ,nf-l) 

+vf . sy Ckf-1 ,nf ,nf-l)+vf . sy Ckf+1 ,nf-l ,nf ) 

+vf . syCkf-1 ,nf-l ,nf ) ) 

+0 . 125*  Cvf . syCkf+1 ,nf-l ,nf-l)+vf . syCkf-1 ,nf-l ,nf-l) ) ) ; 

VC  Cnc , kc , nc) = 2 . 0/9 . 0*  Cvf . sy  Cnf , kf , nf ) 

+0 . 5*  C vf . sy  Cnf - 1 , kf , nf ) +vf . sy  Cnf  , kf + 1 , nf ) 

+vf . sy  Cnf , kf - 1 , nf ) +vf . sy  Cnf , kf , nf - 1 ) ) 

+0.25*Cvf .syCnf ,kf+l,nf-l)+vf .syCnf , kf-1, nf-1) 


+vf . sy(nf-l ,kf ,nf-l)+vf . sy(nf-l ,kf+l ,nf ) 

+vf . sy(nf-l ,kf-l ,nf ) ) 

+0. 125*(vf .sy(nf-l,kf+l,nf-l)+vf .sy(nf-l,kf-l,nf-l))) 

VC (nc , nc , kc) = 2 . 0/9 . 0* (vf . sy (nf , nf , kf ) 

+0.5*(vf . sy(nf-l ,nf ,kf )+vf . sy (nf ,nf-l ,kf ) 

+vf . sy(nf ,nf ,kf+l)+vf . sy(nf ,nf ,kf-l) ) 

+0.25*(vf .sy(nf ,nf-l,kf+l)+vf .sy(nf ,nf-l,kf-l) 

+vf . sy(nf-l ,nf ,kf+l)+vf . sy(nf-l ,nf ,kf-l) 

+vf . sy(nf-l ,nf-l ,kf )) 

+0. 125*(vf . sy(nf-l ,nf-l ,kf+l)+vf . sy(nf-l ,nf-l ,kf-l) ) ) 
} //  end  for-kc 

//  Calculate  the  faces 

for(jc=l, jf=l; jc<nc; jc++, jf+=2)  { 
for (kc=l , kf =1 ; kc<nc ; kc++ , kf +=2)  { 

VC ( j c , nc , kc) = 1 . 0/6 . 0* ( vf . sy ( j f , nf , kf ) 

+0.5*(vf .sy(jf+l,nf ,kf)+vf ,sy(jf-l,nf ,kf) 

+vf .sy(jf ,nf-l ,kf )+vf . sy( jf ,nf ,kf+l) 

+vf . sy(jf ,nf ,kf-l) ) 

+0.25*(vf .sy(jf ,nf-l,kf+l)+vf . sy (jf ,nf-l ,kf-l) 

+vf ,sy(jf+l,nf ,kf+l)+vf .sy(jf+l,nf ,kf-l) 

+vf .sy(jf-l,nf ,kf+l)+vf ,sy(jf-l,nf ,kf-l) 

+vf . sy(jf+l ,nf-l ,kf )+vf . sy(jf-l ,nf-l ,kf ) ) 

+0. 125*(vf .sy(jf+l,nf-l,kf+l)+vf . sy ( jf +1 ,nf-l ,kf-l) 
+vf .sy(jf-l,nf-l,kf+l)+vf .sy(jf-l,nf-l,kf-l))) ; 

vc(nc , jc ,kc)=  1.0/6. 0*(vf . sy(nf , jf ,kf ) 

+0 . 5*  (vf  . sy  (nf  - 1 , j f , kf ) +vf  . sy  (nf , j f +1 , kf ) 

+vf . sy(nf , jf-l,kf )+vf . sy(nf , jf ,kf+l) 

+vf .sy(nf , jf ,kf-l)) 

+0.25*(vf .sy(nf , jf+l,kf+l)+vf .sy(nf , jf+l,kf-l) 

+vf . sy(nf , jf-l,kf+l)+vf . sy(nf , jf-1 ,kf-l) 

+vf .sy(nf-l, jf ,kf+l)+vf .sy(nf-l, jf ,kf-l) 

+vf .sy(nf-l, jf+l,kf)+vf .sy(nf-l, jf-l,kf)) 

+0. 125*(vf .sy(nf-l, jf+l,kf+l)+vf .sy(nf-l, jf+l,kf-l) 
+vf.sy(nf-l, jf-1, kf+l)+vf .sy(nf-l, jf-1, kf-1))) ; 

vc(kc, jc,nc)=  1.0/6.0*(vf .sy(kf , jf ,nf) 

+0 . 5* ( vf . sy (kf +1 , j f , nf ) +vf . sy (kf -1 , j f , nf ) 

+vf .sy(kf , jf+l,nf)+vf .sy(kf , jf-l,nf ) 

+vf .sy(kf ,jf ,nf-l)) 
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+0 . 25* (vf . sy(kf , jf+1 ,nf-l)+vf . sy(kf , jf-1 ,nf-l) 

+vf . sy(kf+l , jf ,nf-l)+vf . sy(kf-l , jf ,nf-l) 

+vf . sy(kf+l , jf+1 ,nf )+vf . sy(kf+l , jf-1 ,nf ) 

+vf . sy(kf-l , jf+1 ,nf )+vf . sy(kf-l , jf-1 ,nf )) 

+0. 125* (vf . sy(kf+l , jf+1 ,nf-l)+vf . sy (kf+1 , jf-1 ,nf-l) 

+vf . sy(kf-l , jf+1 ,nf-l)+vf . sy (kf-1 , jf-1 ,nf-l) ) ) ; 

} //  end  for-kc 
} //  end  for-jc 
} //  end  symrstrct 

The  following  program,  adaptinterp,  is  designed  to  interpolate  data  from  one 
adaptive  level  to  a smaller  adaptive  level: 

#include  <assert.h> 

#include  <f stream. h> 

#include  <iostream.h> 

#include  <iomanip.h> 

#include  <math.h> 

#include  "grid.h" 

#include  " adapt. h" 

//  Coarse-to-f ine  prolongation  by  bilinear  interpolation  for 
//  adaptive  grid 

void  adaptinterp(AGrid3D&  a,  AGrid3D&  v) 


extern  const  int  MG; 

int  i,  j,  k,  X,  y,  z; 
int  n=a.sideX(); 

f or(k=l ;k<=n;k+=2)  { //  we  do  hold  the  nc  faces  fixed 
for(j=l; j<=n; j+=2)  { //  identifies  large  to  small 

//  grid  points 

for(i=l ; i<=n; i+=2)  { 

X = (i+l)/2; 

y = (j  + l)/2; 

z = (k+l)/2; 

a(i, j ,k)  = v(x,y,z) ; 

} //  end  for-i 
} //  end  for-j 
} //  end  for-k 


for(k=l;k<=n;k+=2)  { 

for(j=l; j<=n; j+=2)  { //  averages  horizontally 
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for(i=2; i<n; i+=2)  { 

a(i,j,k)  = 0.5*(a(i+l,j ,k)+a(i-l, j ,k)) ; 

} //  end  for-i 
} //  end  for-j 

for(j=2; j<n; j+=2){  //  averages  vertically 
for(i=l; i<=n; i++){ 

a(i,j,k)  = 0.5*(a(i,j+l,k)+a(i,j-l,k)) ; 

} //  end  for-i 
} //  end  for-j 
} //  end  for-k 

for(k=2;k<n;k+=2)  { //  average  "up"  and  "down" 
for(i=l; i<=n; i++)  { 
for(j=l; j<=n; j++)  { 

a(i,j,k)  = 0.5*(a(i,  j ,k+l)+a(i,  j ,k-D) ; 

} //  end  for-j 
} //  end  for-i 
} //  end  for-k 
} //  end  adaptinterp 

The  program  interp  interpolates  from  one  multigrid  level  to  a smaller  multigrid 

level: 

#include  <assert.h> 

#include  <f stream. h> 

#include  <iostream.h> 

#include  <iomanip.h> 

#include  <math.h> 

#include  "grid.h" 

#include  "adapt. h" 

//  Coaxse-to-f ine  prolongation  by  bilinear  interpolation 
void  interp (AGrid3D&  af , AGrid3D&  vc) 

{ 

int  ic,  iif,  jc,  jf,  kc,  kf ; 
int  nf  = af.sideXO; 
int  nc  = vc.sideXO; 

for(kc=l ;kc<=nc;kc++)  { //  we  do  not  hold  the  nc  faces  fixed 
for(jc=l; jc<=nc; jc++)  { //  identifies  course  to  fine 

//  grid  points 

for(ic=l; ic<=nc; ic++)  { 

af (2*ic-l ,2*jc-l ,2*kc-l)  = vc(ic, jc,kc) ; 

} //  end  for-ic 
} //  end  for-j c 
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kf  = 2*kc-l; 

f or ( jf=l ; jf <=nf ; jf +=2)  { //  averages  horizontally 
for(iif=2; iif <nf ; iif+=2)  { 

af (iif , jf ,kf ) = 0.5*(af (iif+l,jf ,kf)+af (iif-1, jf ,kf)) ; 
} //  end  for-iif 
} //  end  for-jf 

for(jf=2; jf<nf ; jf+=2){  //  averages  vertically 
for(iif=l ; iif <=nf ; iif++){ 

af (iif , jf ,kf ) = 0.5*(af (iif , jf+l,kf)+af (iif , jf-l,kf)) ; 
} //  end  for-iif 
} //  end  for-jf 
} //  end  for-kc 


f or(kf=2;kf<nf ;kf+=2)  { //  average  "up"  and  "down" 
for(iif=l ; iif<=nf ; iif++)  { 
for(jf=l; jf<=nf ; jf++)  { 

af (iif , jf ,kf)  = 0.5*(af (iif , jf ,kf+l)+af (iif ,jf ,kf-l)) ; 

} //  end  for-jf 
} //  end  for-iif 
} //  end  for-kf 
} //  end  interp 

The  program  gluegrid  “pastes”  together  several  adaptive  levels,  relegated  to  the 
equitorial  plane,  allowing  the  solution  to  be  viewed  over  a region  larger  than  the 
smallest  adaptive  level.  It  is  not  a necessary  component  in  the  application  of  the 
variational  principle,  but  it  is  sometimes  convenient  to  view  the  behavior  of  the  field 
graphically: 

//  gluegrid. cxx  - function  to  "glue"  several  adaptive  multigrid 
//  levels  together 


#include 

#include 

#include 

#include 

#include 


<assert .h> 

<f stream. h> 
<iostream.h> 
<iomanip.h> 
<math . h> 


#include  "grid.h" 

#include  " adapt. h" 

//  sm  is  the  small  grid,  Ig  is  the  large  grid,  lev  is  the 
/ / smallest  level  number 

void  gluegrid (AGridSDfe  usm,  AGridSDfe  ulg,  int  lev,  int  count) 

{ 
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//  ONLY  WRITE  DATA  FOR  EQUATORIAL  PLANE! ! I ! 

//  first  read  in  the  large  grid  data,  and  interpolate  it  to 
//a  finer  grid 

int  jc,ic,iif ,jf ; 
int  nc=ulg. sideXO  ; 
int  nf  = 2*nc-l; 
double  len  = ulg.LenXO; 

AGridSD  alg;  //  alg  is  a dummy  array  for  gluing 

//  solutions  together 

alg . reset (nf , len) ; 


for(jc=l; jc<=nc; jc++)  { //  identifies  course  to  fine 

//  grid  points 

for(ic=l; ic<=nc; ic++)  { 

alg(2*ic-l,2*jc-l,l)  = ulgCic, jc,l) ; 

} //  end  for-ic 
} //  end  for-jc 

f or (jf =1 ; jf <=nf ; jf+=2)  { //  averages  horizontally 
f or(iif=2; iif <nf ; iif+=2)  { 

algCiif , jf ,1)  = 0.5*(alg(iif+l,jf ,l)+alg(iif-l,jf ,1)) ; 
} //  end  for-iif 
} //  end  for-jf 

for(jf=2; jf<nf ; jf+=2){  //  averages  vertically 
for(iif=l; iif<=nf ; iif++){ 

algCiif  ,jf,l)  = 0.5*(alg(iif  ,jf+l,l)+alg(iif  ,jf-l,D); 
} //  end  for-iif 
} //  end  for-jf 

//  Now  alg  contains  the  interpolated  larger  grid  solution 
//  Zero  interior  of  larger  solution,  just  to  be  "safe" 

int  i,j; 

double  h = usm.hXO; 


for (i=l ; i<=nf/(pow(2,count+2) )+l; i++)  { 


for(j=l; j<=nf/(pow(2,count+2))+l; j++)  { 
alg(i,j,l)  = 0.0; 


//  zeroing  interior 
//  depends  upon 
//  the  level . . . 
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> //  end  for-j 
} //  end  for-i 

//  Now  glue  together  solutions,  save  into  usm  and  write  to  a 
//  file  if  lev  ==  1 

AGridSD  bsm;  //  bsm  is  a dummy  array 

bsm . reset (nf , len) ; 

for(i=l;i<=nf/(pow(2,count+2))+l; i++)  { //  size  of  interior 

//  depends  upon  level 

for(j=l; j<=nf ; j++)  { 

if (j<=nf/(pow(2,count+2))+l)  bsm(i,j,l)  =usm(i,j,l); 
else  bsm(i,j,l)  = alg(i,j,l); 

} //  end  for-j 
} //  end  for-i 

for(i=nf/(pow(2,count+2))+2; i<=nf ; i++)  { 
for(j=l; j<=nf ; j++)  { 

bsm(i,j,l)  = alg(i,j,l); 

} //  end  for-j 
} //  end  for-i 

usm. reset (nf , len) ; //  reset  usm  to  copy  bsm  into  it... 

copy (usm, bsm) ; 

if(lev==l)  { //if  lev  = 1,  then  write  glued 
//  solution  to  a file 

h = usm.hXO ; 

cout  <<  "Set  dgridSd  in  gnuplot  to  " « nf  <<  endl; 
of stream  output; 

output.openCgluesoln.dat",  ios:  :app|ios:  :trunc); 

for(i=l; i<=nf ; i++)  { 
for(j=l; j<=nf ; j++)  { 

output  « i « " " « j « " " « h*(i-l) 

« " " <<  h*(j-l)  « " " « setprecision(lO) 

« usm(i,j,l)  « endl; 

} //  end  for-j 
} //  end  for-i 

for(i=-nf ;i<=-l;i++)  { 
for(j=l; j<=nf ; j++)  { 

output  « i « " " <<  j « " " <<  h*(i+l) 
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« " " <<  h*(j-l)  « " " « setprecision(lO) 

« usm(-i,j,l)  « endl; 

} //  end  for-j 
> //  end  for-i 

for(i=l; i<=nf ; i++)  { 
for(j=l; j<=nf ; j++)  { 

output  <<  i <<  " " « -j  « " " <<  h*(i-l) 

« " " « -h*(j-l)  « " " « setprecision(lO) 

« usm(i, j , 1)  « endl; 

} //  end  for-j 
} //  end  for-i 

for(i=l ; i<=nf ; i++)  { 
for(j=l; j<=nf ; j++)  { 

output  « -i  <<  " " « -j  <<  " " <<  -h*(i-l) 

<<  " " <<  -h*(j-l)  « " " « setprecision(lO) 

« usm(i, j , 1)  « endl; 

} //  end  for-j 
} //  end  for-i 
} //  end  if-lev=l 
} //  end  gluegrid 

The  program  save  does  exactly  as  advertised,  saving  data  into  a file: 
//save.cxx  - writes  J,  separation  distance,  and  mass  correction 

#include  <assert.h> 

#include  <f stream. h> 

#include  <iostream.h> 

#include  <iomanip.h> 

#include  <math.h> 

#include  "grid.h" 

#include  " adapt. h" 

void  save (char*  filename,  AGrid3D&  psi,  AGridSDfe  u) 

{ 


extern  double  J ; 
extern  double  BAREMl; 

using  namespace  Parameters;  //  looks  up  pairameter  values 

int  largen  = psi.sideXO; 
double  smallh  = u.hXO; 
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double  D = 2*X1;  //  coordinate  separation 

int  xpunct  = Xl/smallh  +1;  //  grid  point  location  of 

//  puncture 

double  upunct  = u(xpunct,l,l) ; //  value  of  u at  puncture 

double  admmass  = 2*M1  + moment (psi, 0, 0, largen-1) ; 

double  q22  = moment (psi, 2, 2, largen-1) ; 

cout  « " Phi(l  = 2,  m = 2)  = " « q22  « endl; 

of stream  output; 

output . open (filename,  ios : : app I ios : : ate) ; //appends  to 

//  end  of  file 

cout  « setprecision(6)  « "J  = " « J 
<<  " coordinate  separation  = " 

<<  D <<  " ADM  = "<<  setprecision(16) 

<<  admmass  « " Newtonian  mass  = " <<  Ml  <<  endl; 

} //  end  save 

The  following  programs  are  “helper”  programs,  in  the  sense  that  they  are  rel- 
atively small  programs  that  do  simple  tasks,  such  as  hlling  arrays  with  soiirce  infor- 
mation or  adding  and  subtracting  arrays. 

//  Fills  source  eirray  on  finest  level  such  that  we  are  relaxing 
//  only  to  find  the  best  approximation,  not  the  error 
void  f illsource(AGrid3D&  s,  AGridSDfe  v,  AGridSDfe  alpha, 

AGrid3D&  beta) 

{ 

int  i,  j,  k; 
int  n = s . sideXO  ; 
double  h=s.hX(); 

for  (i=l ; i<n; i++)  { 
for(j=l; j<n; j++)  { 
for(k=l ;k<n;k++)  { 

double  vres  = 1.0/(h*h)*(GAL0*v.sy(i, j ,k) 

+GALl*(v. sy(i+l , j ,k)+v. sy(i-l , j ,k) 

+v.sy(i, j+l,k)+v.sy(i, j-l,k) 

+v.sy(i, j ,k+l)+v.sy(i, j ,k-l)) 

+GAL2* (v.  sy(i+l , j+1  ,k)+v.  sy(i-t-l , j-1  ,k) 

+v.sy(i-l, j+l,k)+v.sy(i-l, j-l,k) 

+v.sy(i, j+l,k+l)+v.sy(i, j-l,k+l) 

+v.sy(i+l, j ,k+l)+v.sy(i-l, j ,k+l) 

+v.sy(i, j+l,k-l)+v.sy(i, j-l,k-l) 

+v.sy(i+l,j  ,k-l)+v.sy(i-l,  j ,k-D) 

+GAL3*(v.sy(i+l, j+l,k+l)+v.sy(i-l, j+l,k+l) 
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+v.sy(i+l, j-l,k+l)+v.sy(i-l, j-l,k+l) 

+v.sy(i+l, j+l,k-l)+v.sy(i-l, j+l,k-l) 

+v.sy(i+l, j-l,k-l)+v.sy(i-l, j-l,k-l))) 

+beta(i, j ,k)*pow(l+alpha(i, j ,k) 

+alpha(i,j ,k)*v.sy(i, j ,k) ,-7) ; 

s(i, j ,k)  = -vres; 

} 

} 

} 

} 

//Ecalc.cxx  - calculates  the  ADM  mass 

#include  <assert.h> 

#include  <f stream. h> 

#include  <iostream.h> 

#include  <iomanip.h> 

#include  <math.h> 

#include  "grid.h" 

#include  "adapt. h" 

namespace  Energy  { 
double  ADM; 

} 

void  Ecalc(AGrid3D&  psi) 

{ 

using  namespace  Paxameters;  //  looks  up  parameter  values 
using  namespace  Energy;  //  allows  for  modification 

//  of  ADM  mass 


int  n = psi . sideXO  ; 

ADM  = 2*M1  + moment (psi ,0,0, n-1) ; 

cout  <<  "ADM  mass  = " <<  ADM  <<  " for  a D = 
« 2.0*X1  « endl; 

} 

//  getu.cxx  - returns  value  of  u at  puncture 

#include  <assert.h> 

#include  <f stream. h> 
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#include  <iostreain.h> 

#include  <iomanip.h> 

#include  <math.h> 

#include  "grid.h" 

#include  "adapt. h" 

double  getu(AGrid3D&  u)  { 

using  namespace  Pcirameters; 

double  h = u.hX() ; 

int  X = Xl/h  +1;  //  grid  point  location  of  puncture 

return(u(x,l,D) ; 

} 


extern  int  MG,NMG; 

extern  double  GALO, GAL 1 ,GAL2, GALS; 

Wchecks  to  make  sure  system  parameters  are  unchanged 
void  checkparam (double  sepdist)  { 

using  namespace  Parameters; 
extern  double  J; 

assert ( XI  ==  sepdist/2  ); 
assert ( X2  ==  XI  ); 
assert ( SCALE  ==  2.0*X1  ); 

assert ( LEN  ==  1 .0*(pow(2,MG)+2)/(pow(2,MG))*SCALE  ); 
assertC  PYl  ==  1.0*J/(2.0*X1)  ); 
assert ( PY2  ==  -1 . 0*J/(2 .0*X1)  ); 


} 

//determines  the  conformal  factor  on  the  surfaces  in  order  to 
//  calculate  a mass 

void  f illpsi(AGridSD&  psi,  AGridSDfe  alpha,  AGridSDfe  u) 

{ 

int  i,j,k; 

int  n = u.sideXO  ; 

//  Calculating  the  mass  from  1/alpha  introduces 
//  discontinuities... 

//  Just  calculate  correction  from  1 + u,  and  then  add  bare 
//  mass  in  main. . . 
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for(i  = l;i<=n;i++)  { 
for(j  = l;j<=n;j++)  { 
for(k=l;k<=n;k++)  { 

psi(i,j,k)  = 1.0  + u(i,j,k); 

} 

} 

} 

} 

//  zeros  interior  points  of  grid 
void  zerointerior(AGrid3D&  v) 

{ 

int  m; 

int  n=v.sideX(); 

if (n==pow(2,MG)+3)  m = n/2-1; 
else  m = n/2; 

for (int  i=l ; i<=m; i++) 
for(int  j=l; j<=m; j++)  { 
for(int  k=l ;k<=m;k++)  { 
v(i, j ,k)  =0.0; 

} 

> 

} 

} 

//  zeros  interior  points  of  grid 
void  zerointeriorsoln(AGrid3D&  v) 

{ 

int  m; 

int  n=v.sideX(); 
m = n-2; 

for (int  i=l ; i<m; i++)  { 
for(int  j=l; j<m; j++)  { 
for(int  k=l;k<m;k++)  { 
v(i, j ,k)  = 0.0; 

} 

} 

} 
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//  zeros  everything  but  fine  grid  "relaxed"  interior 
void  zeroexterror(AGrid3D&  v) 

{ 

int  i,j,k,m; 
int  n = V. sideXO  ; 
if (n==pow(2,MG)+3)  m = n/2; 
else  m = n/2+1; 

for(i=m; i<=n; i++)  { 
for(j=l; j<=n; j++)  { 
f or(k=l ;k<=n;k++)  { 
v(i,j,k)  = 0.0; 
v(j ,i,k)  = 0.0; 
v(j ,k,i)  =0.0; 

> 

} 

} 

} 

//  adds  two  arrays  together 

void  add(AGrid3D&  u,  AGrid3D&  a,  AGrid3D&  b) 

{ 

int  i,  j,  k; 
int  n = u.  sideXO  ; 

for  (i=l ; i<=n; i++)  { 
for(j=l; j<=n; j++)  { 
for(k=l;k<=n;k++)  { 

u(i,j,k)  = a(i,j,k)  + b(i,j,k); 

} 

} 

} 

} 

//  copies  array 

void  copy(AGrid3D&  u,  AGrid3D&  v) 

{ 

int  i,j,k; 
int  n=u. sideXO; 

for  (i=l; i<=n; i++)  { 
for(j=l; j<=n; j++)  { 
for(k=l ;k<=n;k++)  { 
u(i, j ,k)  = v(i, j ,k) ; 

} 
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} 

} 


//  finds  difference  of  two  arrays 
void  subtract (AGrid3D&  u,  AGridSDfe  v,  AGridSDfe  w) 
{ 

int  i,j,k; 

int  n = u.  sideXO  ; 

for  (i=l; i<=n; i++)  { 
for(j=l; j<=n; j++)  { 
f or(k=l ;k<=n;k++)  { 

u(i,j,k)  = v(i,j,k)  - w(i,j,k); 

} 

} 

} 


} 

//  Find  the  norm  of  an  array 
double  norm (AGridSDfe  v) 

double  err, sum  = 0.0; 
int  i.j,  k; 
int  N; 

int  n = V. sideXO  ; 
if (n==pow(2,MG)+3)  N = n-3; 
else  N = n; 


f or(i=l ; i<=N; i++)  { 
for(j=l; j<=N; j++)  { 
for(k=l;k<=N;k++)  { 

sum  = sum  + v(i, j ,k)*v(i, j ,k) ; 

} 

} 

} 

err  = sqrt(l .0/(N*N*N)*sum) ; 
return (err) ; 

} 

//  Adds  the  correction  to  the  "old"  solution 
void  update (AGridSDfe  v,  AGridSDfe  a) 

{ 

int  i,  j,  k,  n; 
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n = V. sideXO  ; 


f or (i=l ; i<=n; i++)  { 
for(j=l; j<=n; j++)  { 
for(k=l;k<=n;k++)  { 

v(i,j,k)  = v(i,j,k)  + a(i,j,k); 

} 

} 

} 

} 


The  following  header  hies,  grid.h  and  adapt,  h,  were  written  by  Steven  Detweiler 
and  allow  convenient  manipulation  of  arrays: 

//  grid.h 

#ifndef  GRID__H 
#define  GRID__H 

//a  Vect  goes  either  from  0 to  n-1,  for  Vect  v(n) 

//  or  from  nl  to  nh  for  Vect(nl,nh). 

//  Inbounds-checking  is  enabled  for  v[i] , 

//  but  not  for  v.val(i) 

class  Vect  { 
private : 
int  nl; 
int  nh; 
int  len; 
double  *v; 
public : 

//  Constructors: 

VectO:  nl(0),  nh(0) , len(l){  //  changed  I’s  to  O’s 

//  for  nl,  nh 

V = new  double [len]; 
setZeroO  ; 

}; 

VectCint  n) : nl(0),  nh(n-l) , len(n){ 

V = new  double [len] ; 
setZeroO  ; 

}; 

VectCint  nlow,  int  nhi) : nl(nlow),  nh(nhi) , len(nh-nl+l){ 

V = new  double [len] ; 
setZeroO ; 


//  Destructors: 

~Vect(){ 

delete  []  v; 

}; 

//  initialize  (done  automatically  on  construction) 
void  setZero(){ 

forCint  i = 0;  i < len;  i++)  { 
v[i]=0; 

} 

}; 

//  information 

int  sizeO  const  {return  len;} 

int  highO  const  {return  nh;}; 

int  lowO  const  {return  nl;}; 

int  index(int  i)  const  {return  i-nl;}; 

//  value  includes  out-of-bounds  check 
doubleft  operator [] (int  n)  { 
if(n  < nl)  {cout  <<  n «" 

VectError ("Vect : Out  of  bounds  too  low");}; 
if(n  > nh)  {cout  « n «"  "; 

VectErrorC'Vect : Out  of  bounds  too  high");}; 
return  v [n-nl] ; 

}; 

//  value  with  no  out-of-bounds  check 
doublefe  vaKint  n)  { 
return  v [index (n)] ; 

}; 

//  Reset  size 

void  reset (int  n){ 
if  (n  !=  len){ 

nl  = 0;  nh  = n-1;  len  = nh-nl+1; 
delete  []  v; 

V = new  double [len] ; 

} 

setZeroO ; 

}; 

void  reset (int  nlow,  int  nhi){ 
nl=nlow;  nh  = nhi; 
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if  (len  !=  nh-nl+l){ 
len  = nh-nl+1; 
delete  []  v; 

V = new  double [len] ; 

} 

setZeroO ; 

}; 

private: 

void  VectError (char*  str)  const  { 
cout  .f  lushO  ; 
cout  « str  « endl; 

cout  <<  "press  ’c’  and  return  to  continue  ..."  « endl; 

//getchO  ; 

char  kb; 

cin  » kb; 

assert (0) ; 

}; 

}; 

//  Grid2D  is  a two  dimensional  grid  of  n x n for  Grid2D  u(n) 

//  or  nx  X ny  for  Grid2D  u(nx,ny) 

//  access  with  u(i,j)  with  1 <=  i <=  nx  and  1 <=  j <=  ny 
//  Inbonds-checking  is  enabled,  but  could  be  removed. 

class  Grid2D  { 
private : 
int  ngx; 
int  ngy; 

Vect  v; 
public: 

//  Constructors 

Grid2D():  ngx(l),  ngy(l),  v(ngx*ngy){ 

}; 

Grid2D(int  N) : ngx(N),  ngy(N) , v(ngx*ngy){ 
if  (N<=0)  GridErrorC'side  smaller  than  1"); 

}; 

Grid2D(int  Nx,  int  Ny) : ngx(Nx),  ngy(Ny),  v(ngx*ngy){ 
if  (Nx<=0)  GridError("X-side  smaller  than  1"); 
if  (Ny<=0)  GridError("Y-side  smaller  than  1"); 

>; 

//  Destructors 
~Grid2D(){}; 
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//  Initialize — done  automatically  through  Vector: :v  on  construction 
void  setZeroO  -[v.setZeroO 

//  Information 

int  sideXO  const  {return  ngx;}; 
int  sideYO  const  {return  ngy;}; 

int  indexCint  i,  int  j)  const  {return  ((i-l)*ngx  + j - 1);}; 

//  Value  with  out-of-bounds  check 
doublefe  operator 0 (int  i,  int  j)  { 
if(i  < 1)  {cout  « i «" 

GridError("Grid2D:  i too  low");} 
if(j  < 1)  {cout  « j «" 

GridError("Grid2D:  j too  low");} 
if(i  > ngx)  {cout  <<  i <<"  "; 

GridError("Grid2D:  i too  big");} 
if(j  > ngy)  {cout  « j «"  "; 

GridError("Grid2D:  j too  big");} 
return  v[index(i, j)] ; 

}; 

//  Reset  sides 

void  reset (int  N){ 

if  (N<=0)  GridError ("side  smaller  than  1"); 
ngx  = N; 
ngy  = N; 

V . reset (ngx*ngy) ; 

}; 

void  reset(int  Nx,  int  Ny){ 

if  (Nx<=0)  GridError ("X-side  smaller  than  1"); 
if  (Ny<=0)  GridError ("Y-side  smaller  than  1"); 
ngx  = Nx; 
ngy  = Ny; 

V . reset (ngx*ngy) ; 

}; 

private : 

void  GridError (char*  str)  const  { 
cout  .f  lushO  ; 
cout  <<  str  <<  endl; 

cout  <<  "press  ’c'  and  return  to  continue  ..."  <<  endl; 
//getchO  ; 
char  kb; 
cin  >>  kb; 


assert (0) ; 


>; 

}; 

//  Grid2D  is  a three  dimensional  grid  of  n x n x n for 
//  Grid2D  u(n)  or  nx  x ny  x nz  for  Grid2D  u(nx,ny,nz) 

//  access  with  u(i,j,k)  with  1 <=  i <=  nx;  1 <=  j <=  ny; 

//  1 <=  k <=  nz; 

//  Inbonds-checking  is  enabled,  but  could  be  removed. 

class  GridSD  { 
private : 
int  ngx; 
int  ngy; 
int  ngz; 

Vect  v; 
public : 

//  Constructors 

GridSDO:  ngx(l),  ngy(l),  ngz(l),  v(ngx*ngy*ngz){ 

>; 

Grid3D(int  n) : ngx(n),  ngy(n) , ngz(n),  v(ngx*ngy*ngz){ 
if  (n<=0)  GridError ("side  smaller  than  1"); 

}; 

Grid3D(int  Nx,  int  Ny,  int  Nz) : ngx(Nx),  ngy(Ny) , ngz(Nz), 
v(ngx*ngy*ngz){ 

if  (Nx<=0)  GridError ("X-side  smaller  than  1"); 
if  (Ny<=0)  GridError ("Y-side  smaller  than  1"); 
if  (Nz<=0)  GridError ("Z-side  smaller  than  1"); 

}; 

//  Destructor 
~Grid3D(){}; 

//Initialze  — done  automatical!  on  constructoin  through  Vect. 
void  setZeroO  {v.setZeroO  ;}; 

//  Information 

int  sideXO  const  {return  ngx;} 

int  sideYO  const  {return  ngy;} 

int  sideZO  const  {return  ngz;} 

int  index (int  i,  int  j,  int  k) 

const  {return  (((i-l)*ngy  + j-l)*ngz  + k-1);} 
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//  Value  with  out-of-bounds  check 

doubleft  operator 0 (int  i,  int  j,  int  k)  { 
if(i  < 1)  {cout  <<  i «" 
GridError("Grid3D:  i too  low");} 
if(j  < 1)  {cout  « j «" 
GridError("Grid3D:  j too  low");} 
if (k  < 1)  {cout  « k <<"  "; 

Gr  i dEr  r or  ( " Gr  i d3D : 
if(i  > ngx)  {cout  « 

GridError ( "Grid3D : 
if(j  > ngy)  {cout  <<  j <<"  "; 

GridError("Grid3D;  j too  big");} 
if(k  > ngz)  {cout  « k «"  "; 

GridError ("Grid3D:  k too  big");} 
return  v[index(i, j ,k)] ; 

}; 


k too  low") ;} 
i «"  "; 
i too  big") ; } 


//  Value  with  sjmunetry  imposed  at  i=l,  j=l,  k=l 
doubleft  syCint  i,  int  j,  int  k)  { 
if(i  < 1)  {i  = 2 - i;} 

if(j  < 1)  {j  = 2 - j;} 

if(k  < 1)  {k  = 2 - k;} 

if(i  > ngx)  {cout  « i «"  "; 

GridError ("Grid3D : i too  big");} 
if(j  > ngy)  {cout  « j «"  "; 

GridError ("Grid3D : j too  big");} 
if(k  > ngz)  {cout  « k «"  "; 

GridError ("Grid3D:  k too  big");} 
return  v[index(i, j ,k)3 ; 

}; 


//  reset  size 

void  reset (int  n){ 

if  (n<=0)  GridError ("side  smaller  than  1"); 
ngx  = n; 
ngy  = n; 
ngz  = n; 

V . reset (ngx*ngy*ngz) ; 

}; 

void  reset (int  Nx,  int  Ny,  int  Nz)  { 

if  (Nx<=0)  GridError ("X-side  smaller  than  1"); 
if  (Ny<=0)  GridError ("Y-side  smaller  than  1"); 
if  (Nz<=0)  GridError("Z-side  smaller  than  1"); 
ngx  = Nx; 
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ngy  = Ny; 
ngz  = Nz; 

V . reset (ngx*ngy*ngz) ; 

}; 


private : 

void  GridError  (chcir*  str)  const{ 
cout.flushO ; 
cout  « str  « endl; 

cout  « "press  ’c'  and  return  to  continue  ..."  « endl; 

//getchO  ; 

char  kb; 

cin  >>  kb; 

assert (0) ; 

}; 

}; 

#endif 


//  adapt. h 

#ifndef  ADAPT__H 
#define  ADAPT__H 

#include  "grid.h" 

class  AGridSD  : public  GridSD  { 
private : 
double  Lx; 
double  Ly; 
double  Lz; 
double  ghx; 
double  ghy; 
double  ghz; 
public : 

//  Constructors 

AGridSDO:  Grid3D(),  Lx(l)  ,Ly(l)  ,Lz(l)  { setsizeO;}; 
AGrid3D(int  n)  : Grid3D(n),  Lx(l)  ,Ly(l)  ,Lz(l)  { setsizeO;}; 
AGrid3D(int  Nx,  int  Ny,  int  Nz) : Grid3D(Nx,Ny ,Nz) , 

Lx(l) ,Ly(l) ,Lz(l)  { 
setsizeO  ; 

} 

AGrid3D(int  n,  double  L) : Grid3D(n) , Lx(L) ,Ly(L) ,Lz(L)  { 
setsizeO  ;}; 
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AGrid3D(int  Nx,  double  LX,  int  Ny,  double  LY,  int  Nz, 
double  LZ) : 

Grid3D(Nx,Ny,Nz) , Lx(LX) ,Ly(LY) ,Lz(LZ)  { 
setsizeO  ; 

} 

//  Destructor 
~AGrid3D(){;} 

void  reset (int  n){ 

Grid3D : : reset (n) ; 
setsizeO ; 

> 

void  reset (int  n,  double  L){ 

Grid3D : ; reset (n) ; 

Lx  = L; 

Ly  = L; 

Lz  = L; 
setsizeO  ; 

} 

void  reset (int  Nx,  int  Ny,  int  Nz)  { 

Grid3D: : reset (Nx,Ny,Nz) ; 
setsizeO ; 

} 

void  reset (int  Nx,  double  LX,  int  Ny,  double  LY,  int  Nz, 
double  LZ)  { 

Grid3D: :reset(Nx,Ny,Nz) ; 

Lx  = LX; 

Ly  = LY; 

Lz  = LZ; 
setsizeO  ; 


double  LenXO  { return  Lx;} 
double  LenYO  { return  Ly;} 
double  LenZO  { return  Lz;} 

double  hX()  { return  ghx;} 
double  hY()  { return  ghy;} 
double  hZ()  { return  ghz;} 

private : 

void  setsizeO  { 

if  (sideX()<=l)  ghx  = 0;  else  ghx  = Lx/(sideX()-l) ; 


if  (sideY()<=l)  ghy  = 0;  else  ghy  = Ly/(sideY()-l) ; 
if  (sideZ()<=l)  ghz  = 0;  else  ghz  = Lz/(sideZ()-l) ; 

} 

}; 


namespace  Pairameters  { 


extern 

double 

Ml; 

extern 

double 

M2; 

extern 

double 

XI; 

extern 

double 

X2; 

extern 

double 

SCALE 

extern 

double 

LEN; 

extern 

double 

PYl; 

extern 

double 

PY2; 

} 

double  getu(AGrid3D&  u) ; 
void  checkparam (double  dist) ; 
void  newADMmass(void) ; 
void  setupCdouble  dist); 

void  saveCchax*  filename,  AGrid3D&:  psi,  AGrid3D&  u) ; 

void  newbeta(AGrid3D&  alpha,  AGrid3D&  beta); 

void  psibar(AGrid3D&  psib,  int  1,  int  m) ; 

double  moment (AGrid3D&  u,  int  1,  int  m,  int  k) ; 

void  adapt interp(AGrid3D&  u,  AGrid3D&  v) ; 

void  symadaptrstrct (AGrid3D&  u,  AGrid3D&  v) ; 

void  adaptrstrct (AGrid3D&  u,  AGrid3D&  v) ; 

void  add(AGrid3D&  u,  AGrid3D&  a,  AGrid3D&  b) ; 

void  copy(AGrid3D&  u,  AGrid3D&  v) ; 

void  subtract (AGrid3D&  u,  AGrid3D&  v,  AGrid3D&  w) ; 

void  f illpsi (AGrid3D&  psi,  AGrid3D&  alpha,  AGrid3D&  u) ; 

void  f illsource(AGrid3D&  s,  AGrid3D&  v,  AGrid3D&  alpha, 

AGrid3D&  beta) ; 

void  gluegrid(AGrid3D&  usm,  AGrid3D&  ulg,  int  lev,  int  count) 
void  interp(AGrid3D&  af , AGrid3D&  vc) ; 
double  norm(AGrid3D&  v) ; 

void  symresrstrct (AGrid3D&  u,  AGrid3D&  v) ; 

void  resrstrct(AGrid3D&  u,  AGrid3D&  v) ; 

void  newrelajc(AGrid3D&  u,  AGrid3D&  v,  AGrid3D&  s, 

AGrid3D&  alpha,  AGrid3D&  beta) ; 
void  newresidual(AGrid3D&  r,  AGrid3D&  u,  AGrid3D&  v. 


AGrid3D&  s,  AGrid3D&  alpha,  AGrid3D&  beta); 
void  symrstrct(AGrid3D&  vc,  AGrid3D&  vf ) ; 
void  rstrct(AGrid3D&  vc,  AGrid3D&  vf); 
void  update (AGrid3D&  v,  AGrid3D&  a); 

void  write (AGrid3D&  a,  AGrid3D&  b,AGrid3D&  c,  AGrid3D&  d, 
AGrid3D&  e,  AGrid3D&  f ) ; 
void  zeroexterior (AGrid3D&  v) ; 
void  zeroexterror (AGrid3D&  v) ; 
void  zerointerior (AGrid3D&  v) ; 
void  zerointeriorsoln(AGrid3D&  v) ; 


#endif 
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